home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmplam.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  63.5 KB  |  2,848 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmplam.h"
  4. init_cmplam(){do_init(VV);}
  5. /*    macro definition for CK-SPEC    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     if(!endp(V1))invalid_macro_call();}
  18.     base[3]= list(3,VV[0],base[2],VV[1]);
  19.     vs_top=(vs_base=base+3)+1;
  20.     return;
  21. }
  22. /*    macro definition for CK-VL    */
  23.  
  24. static L2()
  25. {register object *base=vs_base;
  26.     register object *sup=base+VM2; VC2
  27.     vs_reserve(VM2);
  28.     check_arg(2);
  29.     vs_top=sup;
  30.     {object V2=base[0]->c.c_cdr;
  31.     if(endp(V2))invalid_macro_call();
  32.     base[2]= (V2->c.c_car);
  33.     V2=V2->c.c_cdr;
  34.     if(!endp(V2))invalid_macro_call();}
  35.     base[3]= list(3,VV[0],base[2],VV[2]);
  36.     vs_top=(vs_base=base+3)+1;
  37.     return;
  38. }
  39. /*    macro definition for DOWNWARD-FUNCTION    */
  40.  
  41. static L3()
  42. {register object *base=vs_base;
  43.     register object *sup=base+VM3; VC3
  44.     vs_reserve(VM3);
  45.     check_arg(2);
  46.     vs_top=sup;
  47.     {object V3=base[0]->c.c_cdr;
  48.     if(endp(V3))invalid_macro_call();
  49.     base[2]= (V3->c.c_car);
  50.     V3=V3->c.c_cdr;
  51.     if(!endp(V3))invalid_macro_call();}
  52.     base[3]= list(2,VV[3],base[2]);
  53.     vs_top=(vs_base=base+3)+1;
  54.     return;
  55. }
  56. /*    local entry for function C1DOWNWARD-FUNCTION    */
  57.  
  58. static object LI4(V5)
  59.  
  60. register object V5;
  61. {     VMB4 VMS4 VMV4
  62. TTL:;
  63.     {register object V6;
  64.     object V7;
  65.     V8= list(2,VV[3],car((V5)));
  66.     V6= (*(LnkLI79))(/* INLINE-ARGS */V8);
  67.     V7= cadr((V6));
  68.     if(!(type_of((V5))==t_cons)){
  69.     goto T4;}
  70.     if(!(type_of(car((V5)))==t_cons)){
  71.     goto T4;}
  72.     if(!((caar((V5)))==(VV[4]))){
  73.     goto T4;}
  74.     if((cadr(car((V5))))!=Cnil){
  75.     goto T4;}
  76.     {register object V9;
  77.     register object V10;
  78.     V9= structure_ref((V7),VV[5],1);
  79.     V10= car((V9));
  80. T16:;
  81.     if(!(endp((V9)))){
  82.     goto T17;}
  83.     goto T12;
  84. T17:;
  85.     V11= structure_ref((V10),VV[6],1);
  86.     if(!((/* INLINE-ARGS */V11)==(VV[7]))){
  87.     goto T21;}
  88.     if((structure_ref((V10),VV[6],3))==Cnil){
  89.     goto T21;}
  90.     (void)(structure_set((V10),VV[6],1,VV[8]));
  91. T21:;
  92.     V9= cdr((V9));
  93.     V10= car((V9));
  94.     goto T16;}
  95. T12:;
  96.     if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6);
  97.     (V6)->c.c_car = VV[9];
  98.     {object V14 = (V6);
  99.     VMR4(V14)}
  100. T4:;
  101.     {object V15 = (V6);
  102.     VMR4(V15)}}
  103. }
  104. /*    local entry for function WT-MAKE-DCLOSURE    */
  105.  
  106. static object LI5(V18,V19)
  107.  
  108. register object V18;object V19;
  109. {     VMB5 VMS5 VMV5
  110. TTL:;
  111.     princ_str("\n    (DownClose",VV[10]);
  112.     (void)((*(LnkLI80))((V18)));
  113.     princ_str(".t=t_dclosure,DownClose",VV[10]);
  114.     (void)((*(LnkLI80))((V18)));
  115.     princ_str(".dc_self=LC",VV[10]);
  116.     (void)((*(LnkLI80))((V18)));
  117.     princ_char(44,VV[10]);
  118.     princ_str("DownClose",VV[10]);
  119.     (void)((*(LnkLI80))((V18)));
  120.     princ_str(".dc_env=base0,(object)&DownClose",VV[10]);
  121.     (void)((*(LnkLI80))((V18)));
  122.     princ_char(41,VV[10]);
  123.     {object V20 = Cnil;
  124.     VMR5(V20)}
  125. }
  126. /*    local entry for function WFS-ERROR    */
  127.  
  128. static object LI6()
  129.  
  130. {     VMB6 VMS6 VMV6
  131. TTL:;
  132.     base[0]= VV[11];
  133.     vs_top=(vs_base=base+0)+1;
  134.     Lerror();
  135.     vs_top=sup;
  136.     {object V21 = vs_base[0];
  137.     VMR6(V21)}
  138. }
  139. /*    local entry for function WT-DOWNWARD-CLOSURE-MACRO    */
  140.  
  141. static object LI7(V23)
  142.  
  143. object V23;
  144. {     VMB7 VMS7 VMV7
  145. TTL:;
  146.     if((symbol_value(VV[12]))==Cnil){
  147.     goto T49;}
  148.     princ_str("\n#define DCnames",VV[13]);
  149.     (void)((*(LnkLI81))((V23)));
  150.     princ_char(32,VV[13]);
  151.     setq(VV[12],(VFUN_NARGS=2,(*(LnkLI82))(VV[14],symbol_value(VV[12]))));
  152.     if((symbol_value(VV[12]))==Cnil){
  153.     goto T58;}
  154.     (void)((*(LnkLI81))(VV[15]));
  155.     {register object V24;
  156.     V24= symbol_value(VV[12]);
  157. T63:;
  158.     if(((V24))!=Cnil){
  159.     goto T64;}
  160.     goto T61;
  161. T64:;
  162.     (void)((*(LnkLI81))(VV[16]));
  163.     (void)((*(LnkLI81))(car((V24))));
  164.     if((cdr((V24)))==Cnil){
  165.     goto T70;}
  166.     (void)((*(LnkLI81))(VV[17]));
  167. T70:;
  168.     V24= cdr((V24));
  169.     goto T63;}
  170. T61:;
  171.     {object V25 = (*(LnkLI81))(VV[18]);
  172.     VMR7(V25)}
  173. T58:;
  174.     {object V26 = Cnil;
  175.     VMR7(V26)}
  176. T49:;
  177.     {object V27 = Cnil;
  178.     VMR7(V27)}
  179. }
  180. /*    local entry for function C2DOWNWARD-FUNCTION    */
  181.  
  182. static object LI8(V29)
  183.  
  184. object V29;
  185. {     VMB8 VMS8 VMV8
  186. TTL:;
  187.     {register object V30;
  188.     setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
  189.     V30= (VFUN_NARGS=4,(*(LnkLI83))(VV[19],VV[20],VV[21],symbol_value(VV[22])));
  190.     if((symbol_value(VV[25]))!=Cnil){
  191.     goto T82;}
  192.     V31= Cnil;
  193.     goto T80;
  194. T82:;
  195.     V31= make_cons(small_fixnum(0),small_fixnum(0));
  196. T80:;
  197.     V32= list(5,VV[24],V31,symbol_value(VV[26]),(V30),(V29));
  198.     setq(VV[23],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[23])));
  199.     setq(VV[27],make_cons((V30),symbol_value(VV[27])));
  200.     V33= structure_ref((V30),VV[28],3);
  201.     setq(VV[12],make_cons(/* INLINE-ARGS */V33,symbol_value(VV[12])));
  202.     V34= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[25]));
  203.     {object V35 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V34));
  204.     VMR8(V35)}}
  205. }
  206. /*    local entry for function C1LAMBDA-EXPR    */
  207.  
  208. static object LI9(V36,va_alist)
  209.     object V36;
  210.     va_dcl 
  211. {    
  212.     va_list ap;
  213.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  214.     bds_check;
  215.     {object V37;
  216.     object V38;
  217.     object V39;
  218.     if(narg <1) too_few_arguments();
  219.     V37= V36;
  220.     narg = narg - 1;
  221.     if (narg <= 0) goto T88;
  222.     else {
  223.     va_start(ap);
  224.     V38= va_arg(ap,object);}
  225.     V39= Ct;
  226.     --narg; goto T89;
  227. T88:;
  228.     V38= Cnil;
  229.     V39= Cnil;
  230. T89:;
  231.     {object V40;
  232.     object V41;
  233.     object V42;
  234.     object V43;
  235.     object V44;
  236.     object V45;
  237.     object V46;
  238.     object V47;
  239.     object V48;
  240.     object V49;
  241.     register object V50;
  242.     register object V51;
  243.     object V52;
  244.     register object V53;
  245.     register object V54;
  246.     register object V55;
  247.     object V56;
  248.     register object V57;
  249.     object V58;
  250.     object V59;
  251.     object V60;
  252.     V40= Cnil;
  253.     V41= Cnil;
  254.     V42= Cnil;
  255.     V43= Cnil;
  256.     V44= Cnil;
  257.     V45= Cnil;
  258.     V46= Cnil;
  259.     V47= Cnil;
  260.     V48= Cnil;
  261.     V49= Cnil;
  262.     V50= Cnil;
  263.     V51= Cnil;
  264.     V52= Cnil;
  265.     V53= Cnil;
  266.     V54= Cnil;
  267.     V55= Cnil;
  268.     V56= Cnil;
  269.     V57= Cnil;
  270.     bds_bind(VV[30],symbol_value(VV[30]));
  271.     V58= (VFUN_NARGS=0,(*(LnkLI85))());
  272.     V59= Cnil;
  273.     V60= symbol_value(VV[31]);
  274.     if(!(endp((V37)))){
  275.     goto T112;}
  276.     V61= make_cons(VV[4],(V37));
  277.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V61)));
  278. T112:;
  279.     base[2]= cdr((V37));
  280.     base[3]= Ct;
  281.     vs_top=(vs_base=base+2)+2;
  282.     (void) (*Lnk87)();
  283.     if(vs_base<vs_top){
  284.     V52= vs_base[0];
  285.     vs_base++;
  286.     }else{
  287.     V52= Cnil;}
  288.     if(vs_base<vs_top){
  289.     V53= vs_base[0];
  290.     vs_base++;
  291.     }else{
  292.     V53= Cnil;}
  293.     if(vs_base<vs_top){
  294.     V55= vs_base[0];
  295.     vs_base++;
  296.     }else{
  297.     V55= Cnil;}
  298.     if(vs_base<vs_top){
  299.     V54= vs_base[0];
  300.     vs_base++;
  301.     }else{
  302.     V54= Cnil;}
  303.     if(vs_base<vs_top){
  304.     V56= vs_base[0];
  305.     vs_base++;
  306.     }else{
  307.     V56= Cnil;}
  308.     if(vs_base<vs_top){
  309.     V49= vs_base[0];
  310.     }else{
  311.     V49= Cnil;}
  312.     vs_top=sup;
  313.     if(((V39))==Cnil){
  314.     goto T119;}
  315.     V62= listA(3,VV[33],(V38),(V52));
  316.     V52= make_cons(/* INLINE-ARGS */V62,Cnil);
  317. T119:;
  318.     (void)((*(LnkLI88))((V53)));
  319.     V50= car((V37));
  320. T128:;
  321.     if(((V50))!=Cnil){
  322.     goto T134;}
  323.     goto T126;
  324. T134:;
  325.     if(type_of((V50))==t_cons){
  326.     goto T137;}
  327.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  328. T137:;
  329.     {object V64;
  330.     V64= car((V50));
  331.     V50= cdr((V50));
  332.     V51= (V64);}
  333.     {object V63= (V51);
  334.     if((V63!= VV[69]))goto T145;
  335.     goto T129;
  336. T145:;
  337.     if((V63!= VV[68]))goto T146;
  338.     goto T130;
  339. T146:;
  340.     if((V63!= VV[71]))goto T147;
  341.     goto T131;
  342. T147:;
  343.     if((V63!= VV[73]))goto T148;
  344.     goto T132;
  345. T148:;}
  346.     {object V65;
  347.     V65= (*(LnkLI89))((V51),(V53),(V54),(V55));
  348.     V57= make_cons((V51),(V57));
  349.     (VV[30]->s.s_dbind)= make_cons((V65),(VV[30]->s.s_dbind));
  350.     V40= make_cons((V65),(V40));}
  351.     goto T128;
  352. T129:;
  353.     if(((V50))!=Cnil){
  354.     goto T156;}
  355.     goto T126;
  356. T156:;
  357.     if(type_of((V50))==t_cons){
  358.     goto T159;}
  359.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  360. T159:;
  361.     {object V67;
  362.     V67= car((V50));
  363.     V50= cdr((V50));
  364.     V51= (V67);}
  365.     {object V66= (V51);
  366.     if((V66!= VV[68]))goto T167;
  367.     goto T130;
  368. T167:;
  369.     if((V66!= VV[71]))goto T168;
  370.     goto T131;
  371. T168:;
  372.     if((V66!= VV[73]))goto T169;
  373.     goto T132;
  374. T169:;}
  375.     if(type_of((V51))==t_cons){
  376.     goto T172;}
  377.     {object V68;
  378.     V68= (*(LnkLI89))((V51),(V53),(V54),(V55));
  379.     V57= make_cons((V51),(V57));
  380.     V69= structure_ref((V68),VV[6],5);
  381.     V70= (*(LnkLI90))(/* INLINE-ARGS */V69);
  382.     V71= list(3,(V68),/* INLINE-ARGS */V70,Cnil);
  383.     V41= make_cons(/* INLINE-ARGS */V71,(V41));
  384.     (VV[30]->s.s_dbind)= make_cons((V68),(VV[30]->s.s_dbind));
  385.     goto T170;}
  386. T172:;
  387.     if(type_of(cdr((V51)))==t_cons){
  388.     goto T181;}
  389.     if((cdr((V51)))==Cnil){
  390.     goto T183;}
  391.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  392. T183:;
  393.     {object V72;
  394.     V72= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
  395.     V57= make_cons(car((V51)),(V57));
  396.     V73= structure_ref((V72),VV[6],5);
  397.     V74= (*(LnkLI90))(/* INLINE-ARGS */V73);
  398.     V75= list(3,(V72),/* INLINE-ARGS */V74,Cnil);
  399.     V41= make_cons(/* INLINE-ARGS */V75,(V41));
  400.     (VV[30]->s.s_dbind)= make_cons((V72),(VV[30]->s.s_dbind));
  401.     goto T170;}
  402. T181:;
  403.     if(type_of(cddr((V51)))==t_cons){
  404.     goto T193;}
  405.     if((cddr((V51)))==Cnil){
  406.     goto T195;}
  407.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  408. T195:;
  409.     {object V76;
  410.     object V77;
  411.     V76= (*(LnkLI91))(cadr((V51)),(V58));
  412.     V77= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
  413.     V57= make_cons(car((V51)),(V57));
  414.     V78= structure_ref((V77),VV[6],5);
  415.     V79= (*(LnkLI92))(/* INLINE-ARGS */V78,(V76),cadr((V51)));
  416.     V80= list(3,(V77),/* INLINE-ARGS */V79,Cnil);
  417.     V41= make_cons(/* INLINE-ARGS */V80,(V41));
  418.     (VV[30]->s.s_dbind)= make_cons((V77),(VV[30]->s.s_dbind));
  419.     goto T170;}
  420. T193:;
  421.     if((cdddr((V51)))==Cnil){
  422.     goto T205;}
  423.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  424. T205:;
  425.     {object V81;
  426.     object V82;
  427.     object V83;
  428.     V81= (*(LnkLI91))(cadr((V51)),(V58));
  429.     V82= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
  430.     V83= (*(LnkLI89))(caddr((V51)),(V53),(V54),(V55));
  431.     V57= make_cons(car((V51)),(V57));
  432.     V57= make_cons(caddr((V51)),(V57));
  433.     V84= structure_ref((V82),VV[6],5);
  434.     V85= (*(LnkLI92))(/* INLINE-ARGS */V84,(V81),cadr((V51)));
  435.     V86= list(3,(V82),/* INLINE-ARGS */V85,(V83));
  436.     V41= make_cons(/* INLINE-ARGS */V86,(V41));
  437.     (VV[30]->s.s_dbind)= make_cons((V82),(VV[30]->s.s_dbind));
  438.     (VV[30]->s.s_dbind)= make_cons((V83),(VV[30]->s.s_dbind));}
  439. T170:;
  440.     goto T129;
  441. T130:;
  442.     if(type_of((V50))==t_cons){
  443.     goto T220;}
  444.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  445. T220:;
  446.     V57= make_cons(car((V50)),(V57));
  447.     {object V88;
  448.     V88= car((V50));
  449.     V50= cdr((V50));
  450.     V87= (V88);}
  451.     V42= (*(LnkLI89))(V87,(V53),(V54),(V55));
  452.     (VV[30]->s.s_dbind)= make_cons((V42),(VV[30]->s.s_dbind));
  453.     if(((V50))!=Cnil){
  454.     goto T233;}
  455.     goto T126;
  456. T233:;
  457.     if(type_of((V50))==t_cons){
  458.     goto T236;}
  459.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  460. T236:;
  461.     {object V90;
  462.     V90= car((V50));
  463.     V50= cdr((V50));
  464.     V51= (V90);}
  465.     {object V89= (V51);
  466.     if((V89!= VV[71]))goto T244;
  467.     goto T131;
  468. T244:;
  469.     if((V89!= VV[73]))goto T245;
  470.     goto T132;
  471. T245:;}
  472.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V51))));
  473. T131:;
  474.     V44= Ct;
  475.     if(((V50))!=Cnil){
  476.     goto T248;}
  477.     goto T126;
  478. T248:;
  479.     if(type_of((V50))==t_cons){
  480.     goto T251;}
  481.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  482. T251:;
  483.     {object V92;
  484.     V92= car((V50));
  485.     V50= cdr((V50));
  486.     V51= (V92);}
  487.     {object V91= (V51);
  488.     if((V91!= VV[73]))goto T259;
  489.     goto T132;
  490. T259:;
  491.     if((V91!= VV[72]))goto T260;
  492.     V46= Ct;
  493.     if(((V50))!=Cnil){
  494.     goto T263;}
  495.     goto T126;
  496. T263:;
  497.     if(type_of((V50))==t_cons){
  498.     goto T266;}
  499.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  500. T266:;
  501.     {object V94;
  502.     V94= car((V50));
  503.     V50= cdr((V50));
  504.     V51= (V94);}
  505.     {object V93= (V51);
  506.     if((V93!= VV[73]))goto T274;
  507.     goto T132;
  508. T274:;}
  509.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V51))));
  510.     goto T254;
  511. T260:;}
  512. T254:;
  513.     if(type_of((V51))==t_cons){
  514.     goto T275;}
  515.     V51= make_cons((V51),Cnil);
  516. T275:;
  517.     if(!(type_of(car((V51)))==t_cons)){
  518.     goto T281;}
  519.     {object V95= caar((V51));
  520.     if(!((type_of(V95)==t_symbol&&(V95)->s.s_hpack==keyword_package))){
  521.     goto T284;}}
  522.     if(!(type_of(cdar((V51)))==t_cons)){
  523.     goto T284;}
  524.     if((cddar((V51)))==Cnil){
  525.     goto T283;}
  526. T284:;
  527.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  528. T283:;
  529.     V51= listA(3,caar((V51)),cadar((V51)),cdr((V51)));
  530.     goto T279;
  531. T281:;
  532.     if(type_of(car((V51)))==t_symbol){
  533.     goto T291;}
  534.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  535. T291:;
  536.     base[2]= coerce_to_string(car((V51)));
  537.     base[3]= VV[38];
  538.     vs_top=(vs_base=base+2)+2;
  539.     Lintern();
  540.     vs_top=sup;
  541.     V96= vs_base[0];
  542.     V51= listA(3,V96,car((V51)),cdr((V51)));
  543. T279:;
  544.     if(type_of(cddr((V51)))==t_cons){
  545.     goto T300;}
  546.     if((cddr((V51)))==Cnil){
  547.     goto T302;}
  548.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  549. T302:;
  550.     {object V97;
  551.     V97= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
  552.     V57= make_cons(cadr((V51)),(V57));
  553.     V98= car((V51));
  554.     V99= structure_ref((V97),VV[6],5);
  555.     V100= (*(LnkLI90))(/* INLINE-ARGS */V99);
  556.     V101= list(4,/* INLINE-ARGS */V98,(V97),/* INLINE-ARGS */V100,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40])));
  557.     V43= make_cons(/* INLINE-ARGS */V101,(V43));
  558.     (VV[30]->s.s_dbind)= make_cons((V97),(VV[30]->s.s_dbind));
  559.     goto T298;}
  560. T300:;
  561.     if(type_of(cdddr((V51)))==t_cons){
  562.     goto T312;}
  563.     if((cdddr((V51)))==Cnil){
  564.     goto T314;}
  565.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  566. T314:;
  567.     {object V102;
  568.     object V103;
  569.     V102= (*(LnkLI91))(caddr((V51)),(V58));
  570.     V103= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
  571.     V57= make_cons(cadr((V51)),(V57));
  572.     V104= car((V51));
  573.     V105= structure_ref((V103),VV[6],5);
  574.     V106= (*(LnkLI92))(/* INLINE-ARGS */V105,(V102),caddr((V51)));
  575.     V107= list(4,/* INLINE-ARGS */V104,(V103),/* INLINE-ARGS */V106,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40])));
  576.     V43= make_cons(/* INLINE-ARGS */V107,(V43));
  577.     (VV[30]->s.s_dbind)= make_cons((V103),(VV[30]->s.s_dbind));
  578.     goto T298;}
  579. T312:;
  580.     if((cddddr((V51)))==Cnil){
  581.     goto T324;}
  582.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  583. T324:;
  584.     {object V108;
  585.     object V109;
  586.     object V110;
  587.     V108= (*(LnkLI91))(caddr((V51)),(V58));
  588.     V109= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
  589.     V110= (*(LnkLI89))(cadddr((V51)),(V53),(V54),(V55));
  590.     V57= make_cons(cadr((V51)),(V57));
  591.     V57= make_cons(cadddr((V51)),(V57));
  592.     V111= car((V51));
  593.     V112= structure_ref((V109),VV[6],5);
  594.     V113= (*(LnkLI92))(/* INLINE-ARGS */V112,(V108),caddr((V51)));
  595.     V114= list(4,/* INLINE-ARGS */V111,(V109),/* INLINE-ARGS */V113,(V110));
  596.     V43= make_cons(/* INLINE-ARGS */V114,(V43));
  597.     (VV[30]->s.s_dbind)= make_cons((V109),(VV[30]->s.s_dbind));
  598.     (VV[30]->s.s_dbind)= make_cons((V110),(VV[30]->s.s_dbind));}
  599. T298:;
  600.     goto T131;
  601. T132:;
  602.     V59= (VFUN_NARGS=0,(*(LnkLI85))());
  603. T133:;
  604.     if(((V50))!=Cnil){
  605.     goto T340;}
  606.     (void)((*(LnkLI94))((V58),(V59)));
  607.     goto T126;
  608. T340:;
  609.     if(type_of((V50))==t_cons){
  610.     goto T344;}
  611.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
  612. T344:;
  613.     {object V115;
  614.     V115= car((V50));
  615.     V50= cdr((V50));
  616.     V51= (V115);}
  617.     if(!(type_of((V51))==t_cons)){
  618.     goto T354;}
  619.     if(type_of(cdr((V51)))==t_cons){
  620.     goto T357;}
  621.     if((cdr((V51)))==Cnil){
  622.     goto T359;}
  623.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  624. T359:;
  625.     {object V116;
  626.     V116= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
  627.     V57= make_cons(car((V51)),(V57));
  628.     V117= structure_ref((V116),VV[6],5);
  629.     V118= (*(LnkLI90))(/* INLINE-ARGS */V117);
  630.     V48= make_cons(/* INLINE-ARGS */V118,(V48));
  631.     V47= make_cons((V116),(V47));
  632.     (VV[30]->s.s_dbind)= make_cons((V116),(VV[30]->s.s_dbind));
  633.     goto T352;}
  634. T357:;
  635.     if((cddr((V51)))==Cnil){
  636.     goto T370;}
  637.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
  638. T370:;
  639.     {object V119;
  640.     object V120;
  641.     V119= (*(LnkLI91))(cadr((V51)),(V59));
  642.     V120= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
  643.     V57= make_cons(car((V51)),(V57));
  644.     V121= structure_ref((V120),VV[6],5);
  645.     V122= (*(LnkLI92))(/* INLINE-ARGS */V121,(V119),cadr((V51)));
  646.     V48= make_cons(/* INLINE-ARGS */V122,(V48));
  647.     V47= make_cons((V120),(V47));
  648.     (VV[30]->s.s_dbind)= make_cons((V120),(VV[30]->s.s_dbind));
  649.     goto T352;}
  650. T354:;
  651.     {object V123;
  652.     V123= (*(LnkLI89))((V51),(V53),(V54),(V55));
  653.     V57= make_cons((V51),(V57));
  654.     V124= structure_ref((V123),VV[6],5);
  655.     V125= (*(LnkLI90))(/* INLINE-ARGS */V124);
  656.     V48= make_cons(/* INLINE-ARGS */V125,(V48));
  657.     V47= make_cons((V123),(V47));
  658.     (VV[30]->s.s_dbind)= make_cons((V123),(VV[30]->s.s_dbind));}
  659. T352:;
  660.     goto T133;
  661. T126:;
  662.     V40= reverse((V40));
  663.     V41= reverse((V41));
  664.     V43= reverse((V43));
  665.     V47= reverse((V47));
  666.     V48= reverse((V48));
  667.     (void)((*(LnkLI95))((V57),(V55),(V54)));
  668.     V52= (*(LnkLI96))((V56),(V52));
  669.     (void)((*(LnkLI94))((V58),cadr((V52))));
  670.     {object V126;
  671.     object V127;
  672.     V126= (V40);
  673.     V127= car((V126));
  674. T409:;
  675.     if(!(endp((V126)))){
  676.     goto T410;}
  677.     goto T405;
  678. T410:;
  679.     (void)((*(LnkLI97))((V127)));
  680.     V126= cdr((V126));
  681.     V127= car((V126));
  682.     goto T409;}
  683. T405:;
  684.     {object V128;
  685.     object V129;
  686.     V128= (V41);
  687.     V129= car((V128));
  688. T424:;
  689.     if(!(endp((V128)))){
  690.     goto T425;}
  691.     goto T420;
  692. T425:;
  693.     (void)((*(LnkLI97))(car((V129))));
  694.     if((caddr((V129)))==Cnil){
  695.     goto T430;}
  696.     (void)((*(LnkLI97))(caddr((V129))));
  697. T430:;
  698.     V128= cdr((V128));
  699.     V129= car((V128));
  700.     goto T424;}
  701. T420:;
  702.     if(((V42))==Cnil){
  703.     goto T438;}
  704.     (void)((*(LnkLI97))((V42)));
  705. T438:;
  706.     {object V130;
  707.     object V131;
  708.     V130= (V43);
  709.     V131= car((V130));
  710. T445:;
  711.     if(!(endp((V130)))){
  712.     goto T446;}
  713.     goto T441;
  714. T446:;
  715.     (void)((*(LnkLI97))(cadr((V131))));
  716.     if((cadddr((V131)))==Cnil){
  717.     goto T451;}
  718.     (void)((*(LnkLI97))(cadddr((V131))));
  719. T451:;
  720.     V130= cdr((V130));
  721.     V131= car((V130));
  722.     goto T445;}
  723. T441:;
  724.     {object V132;
  725.     object V133;
  726.     V132= (V47);
  727.     V133= car((V132));
  728. T463:;
  729.     if(!(endp((V132)))){
  730.     goto T464;}
  731.     goto T459;
  732. T464:;
  733.     (void)((*(LnkLI97))((V133)));
  734.     V132= cdr((V132));
  735.     V133= car((V132));
  736.     goto T463;}
  737. T459:;
  738.     if(((V47))==Cnil){
  739.     goto T474;}
  740.     (void)((*(LnkLI94))((V59),cadr((V52))));
  741.     V52= list(5,VV[41],(V59),(V47),(V48),(V52));
  742.     if(!(eql((V60),symbol_value(VV[31])))){
  743.     goto T480;}
  744.     goto T474;
  745. T480:;
  746.     (void)(structure_set((V59),VV[5],4,Ct));
  747. T474:;
  748.     V52= (*(LnkLI98))((V40),(V52),(V38));
  749.     V45= list(6,(V40),(V41),(V42),(V44),(V43),(V46));
  750.     if(symbol_value(VV[42])==Cnil){
  751.     goto T486;}
  752.     (void)((*(LnkLI99))((V45)));
  753. T486:;
  754.     {object V134 = list(5,VV[4],(V58),(V45),(V49),(V52));
  755.     bds_unwind1;
  756.     VMR9(V134)}}}
  757.     }
  758. /*    local entry for function FIX-DOWN-ARGS    */
  759.  
  760. static object LI10(V138,V139,V140)
  761.  
  762. object V138;object V139;object V140;
  763. {     VMB10 VMS10 VMV10
  764. TTL:;
  765.     {object V141;
  766.     object V142;
  767.     register object V143;
  768.     register object V144;
  769.     V141= Cnil;
  770.     V142= Cnil;
  771.     V143= Cnil;
  772.     V144= Cnil;
  773.     {object V145;
  774.     object V146;
  775.     V145= get((V140),VV[43],Cnil);
  776.     V146= get((V140),VV[44],Cnil);
  777.     {register object V147;
  778.     register object V148;
  779.     V147= (V138);
  780.     V148= (V145);
  781. T495:;
  782.     if(((V147))!=Cnil){
  783.     goto T496;}
  784.     goto T493;
  785. T496:;
  786.     V144= car((V147));
  787.     if(((V146))!=Cnil){
  788.     goto T504;}
  789.     if((car((V148)))==(Ct)){
  790.     goto T504;}
  791.     {object V149 = (V139);
  792.     VMR10(V149)}
  793. T504:;
  794.     V150= structure_ref((V144),VV[6],1);
  795.     if(!((/* INLINE-ARGS */V150)==(VV[8]))){
  796.     goto T502;}
  797.     V151= structure_ref((V144),VV[6],4);
  798.     if(!((/* INLINE-ARGS */V151)==(VV[45]))){
  799.     goto T502;}
  800.     {register object V152;
  801.     object V153;
  802.     V154= structure_ref((V144),VV[6],0);
  803.     V152= (*(LnkLI89))(/* INLINE-ARGS */V154,Cnil,Cnil,Cnil);
  804.     if((V143)!=Cnil){
  805.     V155= (V143);
  806.     goto T514;}
  807.     V143= (VFUN_NARGS=0,(*(LnkLI85))());
  808.     V155= (V143);
  809. T514:;
  810.     V153= list(3,VV[6],V155,list(2,(V152),Cnil));
  811.     V141= make_cons((V144),(V141));
  812.     {register object V157;
  813.     V157= (V152);
  814.     if(type_of(V147)!=t_cons)FEwrong_type_argument(Scons,V147);
  815.     (V147)->c.c_car = (V157);}
  816.     {register object V158;
  817.     object V159;
  818.     V158= (V143);
  819.     V160= structure_ref((V158),VV[5],1);
  820.     V159= make_cons((V152),/* INLINE-ARGS */V160);
  821.     (void)(structure_set((V158),VV[5],1,(V159)));}
  822.     V142= make_cons((V153),(V142));}
  823. T502:;
  824.     V147= cdr((V147));
  825.     V148= cdr((V148));
  826.     goto T495;}
  827. T493:;
  828.     if(((V141))==Cnil){
  829.     goto T530;}
  830.     {object V161 = list(5,VV[41],(V143),(V141),(V142),(V139));
  831.     VMR10(V161)}
  832. T530:;
  833.     {object V162 = (V139);
  834.     VMR10(V162)}}}
  835. }
  836. /*    local entry for function THE-PARAMETER    */
  837.  
  838. static object LI11(V164)
  839.  
  840. register object V164;
  841. {     VMB11 VMS11 VMV11
  842. TTL:;
  843.     if(type_of((V164))==t_symbol){
  844.     goto T532;}
  845.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V164))));
  846. T532:;
  847.     base[0]= (V164);
  848.     vs_top=(vs_base=base+0)+1;
  849.     Lconstantp();
  850.     vs_top=sup;
  851.     if((vs_base[0])==Cnil){
  852.     goto T535;}
  853.     (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V164))));
  854. T535:;
  855.     {object V165 = (V164);
  856.     VMR11(V165)}
  857. }
  858. /*    local entry for function C2LAMBDA-EXPR    */
  859.  
  860. static object LI12(V167,V166,va_alist)
  861.     object V167,V166;
  862.     va_dcl 
  863. {    
  864.     va_list ap;
  865.     int narg = VFUN_NARGS; VMB12 VMS12 VMV12
  866.     bds_check;
  867.     {register object V168;
  868.     object V169;
  869.     object V170;
  870.     object V171;
  871.     if(narg <2) too_few_arguments();
  872.     V168= V167;
  873.     V169= V166;
  874.     narg = narg - 2;
  875.     if (narg <= 0) goto T539;
  876.     else {
  877.     va_start(ap);
  878.     V170= va_arg(ap,object);}
  879.     V171= Ct;
  880.     --narg; goto T540;
  881. T539:;
  882.     V170= Cnil;
  883.     V171= Cnil;
  884. T540:;
  885.     if((symbol_value(VV[49]))==Cnil){
  886.     goto T544;}
  887.     if(((V171))==Cnil){
  888.     goto T544;}
  889.     {register object V172;
  890.     register object V173;
  891.     V172= car((V168));
  892.     V173= car((V172));
  893. T554:;
  894.     if(!(endp((V172)))){
  895.     goto T555;}
  896.     goto T550;
  897. T555:;
  898.     if((structure_ref((V173),VV[6],3))==Cnil){
  899.     goto T559;}
  900.     goto T544;
  901. T559:;
  902.     V172= cdr((V172));
  903.     V173= car((V172));
  904.     goto T554;}
  905. T550:;
  906.     if((cadr((V168)))!=Cnil){
  907.     goto T544;}
  908.     if((caddr((V168)))!=Cnil){
  909.     goto T544;}
  910.     if((cadddr((V168)))!=Cnil){
  911.     goto T544;}
  912.     base[0]= make_cons((V170),car((V168)));
  913.     goto T542;
  914. T544:;
  915.     base[0]= Cnil;
  916. T542:;
  917.     bds_bind(VV[48],base[0]);
  918.     if((caddr((V168)))==Cnil){
  919.     goto T574;}
  920.     V174= structure_ref(caddr((V168)),VV[6],5);
  921.     if(!((/* INLINE-ARGS */V174)==(VV[51]))){
  922.     goto T574;}
  923.     base[1]= Ct;
  924.     goto T572;
  925. T574:;
  926.     base[1]= symbol_value(VV[50]);
  927. T572:;
  928.     bds_bind(VV[50],base[1]);
  929.     if((cadddr((V168)))==Cnil){
  930.     goto T579;}
  931.     {object V175 = (*(LnkLI100))((V168),(V169));
  932.     bds_unwind1;
  933.     bds_unwind1;
  934.     VMR12(V175)}
  935. T579:;
  936.     {object V176 = (*(LnkLI101))((V168),(V169));
  937.     bds_unwind1;
  938.     bds_unwind1;
  939.     VMR12(V176)}}
  940.     }
  941. /*    local entry for function C2LAMBDA-EXPR-WITHOUT-KEY    */
  942.  
  943. static object LI13(V179,V180)
  944.  
  945. object V179;object V180;
  946. {     VMB13 VMS13 VMV13
  947.     bds_check;
  948. TTL:;
  949.     {object V181;
  950.     object V182;
  951.     object V183;
  952.     register object V184;
  953.     V181= car((V179));
  954.     V182= cadr((V179));
  955.     V183= caddr((V179));
  956.     V184= Cnil;
  957.     bds_bind(VV[52],symbol_value(VV[52]));
  958.     bds_bind(VV[53],symbol_value(VV[53]));
  959.     bds_bind(VV[25],symbol_value(VV[25]));
  960.     bds_bind(VV[26],symbol_value(VV[26]));
  961.     base[7]= Cnil;
  962.     {register object V185;
  963.     object V186;
  964.     V185= (V181);
  965.     V186= car((V185));
  966. T590:;
  967.     if(!(endp((V185)))){
  968.     goto T591;}
  969.     goto T586;
  970. T591:;
  971.     base[9]= (V186);
  972.     vs_top=(vs_base=base+9)+1;
  973.     L14(base);
  974.     vs_top=sup;
  975.     V185= cdr((V185));
  976.     V186= car((V185));
  977.     goto T590;}
  978. T586:;
  979.     {register object V187;
  980.     object V188;
  981.     V187= (V182);
  982.     V188= car((V187));
  983. T606:;
  984.     if(!(endp((V187)))){
  985.     goto T607;}
  986.     goto T602;
  987. T607:;
  988.     base[9]= car((V188));
  989.     vs_top=(vs_base=base+9)+1;
  990.     L14(base);
  991.     vs_top=sup;
  992.     if((caddr((V188)))==Cnil){
  993.     goto T613;}
  994.     base[9]= caddr((V188));
  995.     vs_top=(vs_base=base+9)+1;
  996.     L14(base);
  997.     vs_top=sup;
  998. T613:;
  999.     V187= cdr((V187));
  1000.     V188= car((V187));
  1001.     goto T606;}
  1002. T602:;
  1003.     if(((V183))==Cnil){
  1004.     goto T585;}
  1005.     base[8]= (V183);
  1006.     vs_top=(vs_base=base+8)+1;
  1007.     L14(base);
  1008.     vs_top=sup;
  1009. T585:;
  1010.     if((symbol_value(VV[55]))!=Cnil){
  1011.     goto T626;}
  1012.     if((symbol_value(VV[56]))==Cnil){
  1013.     goto T625;}
  1014. T626:;
  1015.     if(((V183))!=Cnil){
  1016.     goto T630;}
  1017.     if(((V182))==Cnil){
  1018.     goto T631;}
  1019. T630:;
  1020.     if(((V181))==Cnil){
  1021.     goto T635;}
  1022.     princ_str("\n    if(vs_top-vs_base<",VV[10]);
  1023.     V189 = make_fixnum(length((V181)));
  1024.     (void)((*(LnkLI80))(V189));
  1025.     princ_str(") too_few_arguments();",VV[10]);
  1026. T635:;
  1027.     if(((V183))!=Cnil){
  1028.     goto T625;}
  1029.     princ_str("\n    if(vs_top-vs_base>",VV[10]);
  1030.     { save_avma;
  1031.     V190 = stoi(length((V181)));
  1032.     V191 = stoi(length((V182)));
  1033.     V192= make_integer(addii(V190,V191));
  1034.     (void)((*(LnkLI80))(/* INLINE-ARGS */V192));restore_avma;}
  1035.     princ_str(") too_many_arguments();",VV[10]);
  1036.     goto T625;
  1037. T631:;
  1038.     princ_str("\n    check_arg(",VV[10]);
  1039.     V193 = make_fixnum(length((V181)));
  1040.     (void)((*(LnkLI80))(V193));
  1041.     princ_str(");",VV[10]);
  1042. T625:;
  1043.     {register object V194;
  1044.     object V195;
  1045.     V194= (V181);
  1046.     V195= car((V194));
  1047. T653:;
  1048.     if(!(endp((V194)))){
  1049.     goto T654;}
  1050.     goto T649;
  1051. T654:;
  1052.     V196= (*(LnkLI102))();
  1053.     (void)(structure_set((V195),VV[6],2,/* INLINE-ARGS */V196));
  1054.     V194= cdr((V194));
  1055.     V195= car((V194));
  1056.     goto T653;}
  1057. T649:;
  1058.     {register object V197;
  1059.     object V198;
  1060.     V197= (V182);
  1061.     V198= car((V197));
  1062. T668:;
  1063.     if(!(endp((V197)))){
  1064.     goto T669;}
  1065.     goto T664;
  1066. T669:;
  1067.     V199= car((V198));
  1068.     V200= (*(LnkLI102))();
  1069.     (void)(structure_set(/* INLINE-ARGS */V199,VV[6],2,/* INLINE-ARGS */V200));
  1070.     V197= cdr((V197));
  1071.     V198= car((V197));
  1072.     goto T668;}
  1073. T664:;
  1074.     if(((V183))==Cnil){
  1075.     goto T679;}
  1076.     V201= (*(LnkLI102))();
  1077.     (void)(structure_set((V183),VV[6],2,/* INLINE-ARGS */V201));
  1078. T679:;
  1079.     {register object V202;
  1080.     object V203;
  1081.     V202= (V182);
  1082.     V203= car((V202));
  1083. T686:;
  1084.     if(!(endp((V202)))){
  1085.     goto T687;}
  1086.     goto T682;
  1087. T687:;
  1088.     if((caddr((V203)))==Cnil){
  1089.     goto T691;}
  1090.     V204= caddr((V203));
  1091.     V205= (*(LnkLI102))();
  1092.     (void)(structure_set(/* INLINE-ARGS */V204,VV[6],2,/* INLINE-ARGS */V205));
  1093. T691:;
  1094.     V202= cdr((V202));
  1095.     V203= car((V202));
  1096.     goto T686;}
  1097. T682:;
  1098.     {register object V206;
  1099.     object V207;
  1100.     V206= (V181);
  1101.     V207= car((V206));
  1102. T703:;
  1103.     if(!(endp((V206)))){
  1104.     goto T704;}
  1105.     goto T699;
  1106. T704:;
  1107.     (void)((*(LnkLI103))((V207)));
  1108.     V206= cdr((V206));
  1109.     V207= car((V206));
  1110.     goto T703;}
  1111. T699:;
  1112.     if(((V182))!=Cnil){
  1113.     goto T716;}
  1114.     if(((V183))==Cnil){
  1115.     goto T714;}
  1116. T716:;
  1117.     if(((V181))==Cnil){
  1118.     goto T714;}
  1119.     princ_str("\n    vs_base=vs_base+",VV[10]);
  1120.     V208 = make_fixnum(length((V181)));
  1121.     (void)((*(LnkLI80))(V208));
  1122.     princ_char(59,VV[10]);
  1123. T714:;
  1124.     if(((V182))==Cnil){
  1125.     goto T726;}
  1126.     bds_bind(VV[25],(VV[25]->s.s_dbind));
  1127.     bds_bind(VV[52],(VV[52]->s.s_dbind));
  1128.     bds_bind(VV[26],(VV[26]->s.s_dbind));
  1129.     if(((V183))==Cnil){
  1130.     goto T729;}
  1131.     princ_str("\n    vs_top[0]=Cnil;",VV[10]);
  1132.     princ_str("\n    {object *p=vs_top, *q=vs_base+",VV[10]);
  1133.     V209 = make_fixnum(length((V182)));
  1134.     (void)((*(LnkLI80))(V209));
  1135.     princ_char(59,VV[10]);
  1136.     princ_str("\n     for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]);
  1137. T729:;
  1138.     {register object V210;
  1139.     V210= (V182);
  1140. T741:;
  1141.     if(!(endp((V210)))){
  1142.     goto T742;}
  1143.     goto T739;
  1144. T742:;
  1145.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  1146.     V211= make_cons(symbol_value(VV[57]),Cnil);
  1147.     V184= make_cons(/* INLINE-ARGS */V211,(V184));
  1148.     princ_str("\n    if(vs_base>=vs_top){",VV[10]);
  1149.     (void)((*(LnkLI104))());
  1150.     if(type_of(car((V184)))!=t_cons)FEwrong_type_argument(Scons,car((V184)));
  1151.     (car((V184)))->c.c_cdr = Ct;
  1152.     (void)(car((V184)));
  1153.     princ_str("goto T",VV[10]);
  1154.     (void)((*(LnkLI80))(car(car((V184)))));
  1155.     princ_char(59,VV[10]);
  1156.     princ_char(125,VV[10]);
  1157.     (void)((*(LnkLI103))(caar((V210))));
  1158.     if((caddar((V210)))==Cnil){
  1159.     goto T760;}
  1160.     (void)((*(LnkLI105))(caddar((V210)),Ct));
  1161. T760:;
  1162.     if((cdr((V210)))==Cnil){
  1163.     goto T763;}
  1164.     princ_str("\n    vs_base++;",VV[10]);
  1165. T763:;
  1166.     V210= cdr((V210));
  1167.     goto T741;}
  1168. T739:;
  1169.     if(((V183))==Cnil){
  1170.     bds_unwind1;
  1171.     bds_unwind1;
  1172.     bds_unwind1;
  1173.     goto T728;}
  1174.     V212= (*(LnkLI103))((V183));
  1175.     bds_unwind1;
  1176.     bds_unwind1;
  1177.     bds_unwind1;
  1178. T728:;
  1179.     princ_str("\n    ",VV[10]);
  1180.     (void)((*(LnkLI104))());
  1181.     {object V213;
  1182.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  1183.     V213= make_cons(symbol_value(VV[57]),Cnil);
  1184.     princ_str("\n    ",VV[10]);
  1185.     if(type_of((V213))!=t_cons)FEwrong_type_argument(Scons,(V213));
  1186.     ((V213))->c.c_cdr = Ct;
  1187.     princ_str("goto T",VV[10]);
  1188.     (void)((*(LnkLI80))(car((V213))));
  1189.     princ_char(59,VV[10]);
  1190.     V184= reverse((V184));
  1191.     {register object V214;
  1192.     register object V215;
  1193.     V214= (V182);
  1194.     V215= car((V214));
  1195. T788:;
  1196.     if(!(endp((V214)))){
  1197.     goto T789;}
  1198.     goto T784;
  1199. T789:;
  1200.     if((cdr(car((V184))))==Cnil){
  1201.     goto T793;}
  1202.     princ_str("\nT",VV[10]);
  1203.     (void)((*(LnkLI80))(car(car((V184)))));
  1204.     princ_str(":;",VV[10]);
  1205. T793:;
  1206.     {object V216;
  1207.     V216= car((V184));
  1208.     V184= cdr((V184));}
  1209.     (void)((*(LnkLI106))(car((V215)),cadr((V215))));
  1210.     if((caddr((V215)))==Cnil){
  1211.     goto T804;}
  1212.     (void)((*(LnkLI105))(caddr((V215)),Cnil));
  1213. T804:;
  1214.     V214= cdr((V214));
  1215.     V215= car((V214));
  1216.     goto T788;}
  1217. T784:;
  1218.     if(((V183))==Cnil){
  1219.     goto T812;}
  1220.     (void)((*(LnkLI105))((V183),Cnil));
  1221. T812:;
  1222.     if((cdr((V213)))==Cnil){
  1223.     goto T724;}
  1224.     princ_str("\nT",VV[10]);
  1225.     (void)((*(LnkLI80))(car((V213))));
  1226.     princ_str(":;",VV[10]);
  1227.     goto T724;}
  1228. T726:;
  1229.     if(((V183))==Cnil){
  1230.     goto T821;}
  1231.     princ_str("\n    vs_top[0]=Cnil;",VV[10]);
  1232.     princ_str("\n    {object *p=vs_top;",VV[10]);
  1233.     princ_str("\n     for(;p>vs_base;p--)p[-1]=",VV[10]);
  1234.     if((symbol_value(VV[50]))==Cnil){
  1235.     goto T832;}
  1236.     V217= VV[58];
  1237.     goto T830;
  1238. T832:;
  1239.     V217= VV[59];
  1240. T830:;
  1241.     (void)((*(LnkLI80))(V217));
  1242.     princ_str("(p[-1],p[0]);}",VV[10]);
  1243.     (void)((*(LnkLI103))((V183)));
  1244.     princ_str("\n    ",VV[10]);
  1245.     (void)((*(LnkLI104))());
  1246.     goto T724;
  1247. T821:;
  1248.     princ_str("\n    ",VV[10]);
  1249.     (void)((*(LnkLI104))());
  1250. T724:;
  1251.     if((symbol_value(VV[48]))==Cnil){
  1252.     goto T838;}
  1253.     (VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind));
  1254.     princ_str("\nTTL:;",VV[10]);
  1255. T838:;
  1256.     base[8]= (V180);
  1257.     vs_top=(vs_base=base+8)+1;
  1258.     (void) (*Lnk107)();
  1259.     vs_top=sup;
  1260.     if((base[7])==Cnil){
  1261.     goto T847;}
  1262.     princ_str("\n    }",VV[10]);
  1263.     {object V218 = Cnil;
  1264.     bds_unwind1;
  1265.     bds_unwind1;
  1266.     bds_unwind1;
  1267.     bds_unwind1;
  1268.     VMR13(V218)}
  1269. T847:;
  1270.     {object V219 = Cnil;
  1271.     bds_unwind1;
  1272.     bds_unwind1;
  1273.     bds_unwind1;
  1274.     bds_unwind1;
  1275.     VMR13(V219)}}
  1276. }
  1277. /*    local entry for function C2LAMBDA-EXPR-WITH-KEY    */
  1278.  
  1279. static object LI15(V222,V223)
  1280.  
  1281. object V222;object V223;
  1282. {     VMB14 VMS14 VMV14
  1283.     bds_check;
  1284. TTL:;
  1285.     {object V224;
  1286.     object V225;
  1287.     object V226;
  1288.     object V227;
  1289.     object V228;
  1290.     register object V229;
  1291.     V224= car((V222));
  1292.     V225= cadr((V222));
  1293.     V226= caddr((V222));
  1294.     V227= car(cddddr((V222)));
  1295.     V228= cadr(cddddr((V222)));
  1296.     V229= Cnil;
  1297.     bds_bind(VV[52],symbol_value(VV[52]));
  1298.     bds_bind(VV[53],symbol_value(VV[53]));
  1299.     bds_bind(VV[25],symbol_value(VV[25]));
  1300.     bds_bind(VV[26],symbol_value(VV[26]));
  1301.     base[9]= Cnil;
  1302.     {register object V230;
  1303.     object V231;
  1304.     V230= (V224);
  1305.     V231= car((V230));
  1306. T861:;
  1307.     if(!(endp((V230)))){
  1308.     goto T862;}
  1309.     goto T857;
  1310. T862:;
  1311.     base[11]= (V231);
  1312.     vs_top=(vs_base=base+11)+1;
  1313.     L16(base);
  1314.     vs_top=sup;
  1315.     V230= cdr((V230));
  1316.     V231= car((V230));
  1317.     goto T861;}
  1318. T857:;
  1319.     {register object V232;
  1320.     object V233;
  1321.     V232= (V225);
  1322.     V233= car((V232));
  1323. T877:;
  1324.     if(!(endp((V232)))){
  1325.     goto T878;}
  1326.     goto T873;
  1327. T878:;
  1328.     base[11]= car((V233));
  1329.     vs_top=(vs_base=base+11)+1;
  1330.     L16(base);
  1331.     vs_top=sup;
  1332.     if((caddr((V233)))==Cnil){
  1333.     goto T884;}
  1334.     base[11]= caddr((V233));
  1335.     vs_top=(vs_base=base+11)+1;
  1336.     L16(base);
  1337.     vs_top=sup;
  1338. T884:;
  1339.     V232= cdr((V232));
  1340.     V233= car((V232));
  1341.     goto T877;}
  1342. T873:;
  1343.     if(((V226))==Cnil){
  1344.     goto T893;}
  1345.     base[10]= (V226);
  1346.     vs_top=(vs_base=base+10)+1;
  1347.     L16(base);
  1348.     vs_top=sup;
  1349. T893:;
  1350.     {register object V234;
  1351.     object V235;
  1352.     V234= (V227);
  1353.     V235= car((V234));
  1354. T900:;
  1355.     if(!(endp((V234)))){
  1356.     goto T901;}
  1357.     goto T856;
  1358. T901:;
  1359.     base[11]= cadr((V235));
  1360.     vs_top=(vs_base=base+11)+1;
  1361.     L16(base);
  1362.     vs_top=sup;
  1363.     if((cadddr((V235)))==Cnil){
  1364.     goto T907;}
  1365.     base[11]= cadddr((V235));
  1366.     vs_top=(vs_base=base+11)+1;
  1367.     L16(base);
  1368.     vs_top=sup;
  1369. T907:;
  1370.     V234= cdr((V234));
  1371.     V235= car((V234));
  1372.     goto T900;}
  1373. T856:;
  1374.     if((symbol_value(VV[55]))!=Cnil){
  1375.     goto T918;}
  1376.     if((symbol_value(VV[56]))==Cnil){
  1377.     goto T916;}
  1378. T918:;
  1379.     if(((V224))==Cnil){
  1380.     goto T916;}
  1381.     if(((V224))==Cnil){
  1382.     goto T916;}
  1383.     princ_str("\n    if(vs_top-vs_base<",VV[10]);
  1384.     V236 = make_fixnum(length((V224)));
  1385.     (void)((*(LnkLI80))(V236));
  1386.     princ_str(") too_few_arguments();",VV[10]);
  1387. T916:;
  1388.     {register object V237;
  1389.     object V238;
  1390.     V237= (V224);
  1391.     V238= car((V237));
  1392. T932:;
  1393.     if(!(endp((V237)))){
  1394.     goto T933;}
  1395.     goto T928;
  1396. T933:;
  1397.     V239= (*(LnkLI102))();
  1398.     (void)(structure_set((V238),VV[6],2,/* INLINE-ARGS */V239));
  1399.     V237= cdr((V237));
  1400.     V238= car((V237));
  1401.     goto T932;}
  1402. T928:;
  1403.     {register object V240;
  1404.     object V241;
  1405.     V240= (V225);
  1406.     V241= car((V240));
  1407. T947:;
  1408.     if(!(endp((V240)))){
  1409.     goto T948;}
  1410.     goto T943;
  1411. T948:;
  1412.     V242= car((V241));
  1413.     V243= (*(LnkLI102))();
  1414.     (void)(structure_set(/* INLINE-ARGS */V242,VV[6],2,/* INLINE-ARGS */V243));
  1415.     V240= cdr((V240));
  1416.     V241= car((V240));
  1417.     goto T947;}
  1418. T943:;
  1419.     if(((V226))==Cnil){
  1420.     goto T958;}
  1421.     V244= (*(LnkLI102))();
  1422.     (void)(structure_set((V226),VV[6],2,/* INLINE-ARGS */V244));
  1423. T958:;
  1424.     {register object V245;
  1425.     object V246;
  1426.     V245= (V227);
  1427.     V246= car((V245));
  1428. T965:;
  1429.     if(!(endp((V245)))){
  1430.     goto T966;}
  1431.     goto T961;
  1432. T966:;
  1433.     V247= cadr((V246));
  1434.     V248= (*(LnkLI102))();
  1435.     (void)(structure_set(/* INLINE-ARGS */V247,VV[6],2,/* INLINE-ARGS */V248));
  1436.     V245= cdr((V245));
  1437.     V246= car((V245));
  1438.     goto T965;}
  1439. T961:;
  1440.     {register object V249;
  1441.     object V250;
  1442.     V249= (V227);
  1443.     V250= car((V249));
  1444. T980:;
  1445.     if(!(endp((V249)))){
  1446.     goto T981;}
  1447.     goto T976;
  1448. T981:;
  1449.     V251= cadddr((V250));
  1450.     V252= (*(LnkLI102))();
  1451.     (void)(structure_set(/* INLINE-ARGS */V251,VV[6],2,/* INLINE-ARGS */V252));
  1452.     V249= cdr((V249));
  1453.     V250= car((V249));
  1454.     goto T980;}
  1455. T976:;
  1456.     {register object V253;
  1457.     object V254;
  1458.     V253= (V225);
  1459.     V254= car((V253));
  1460. T995:;
  1461.     if(!(endp((V253)))){
  1462.     goto T996;}
  1463.     goto T991;
  1464. T996:;
  1465.     if((caddr((V254)))==Cnil){
  1466.     goto T1000;}
  1467.     V255= caddr((V254));
  1468.     V256= (*(LnkLI102))();
  1469.     (void)(structure_set(/* INLINE-ARGS */V255,VV[6],2,/* INLINE-ARGS */V256));
  1470. T1000:;
  1471.     V253= cdr((V253));
  1472.     V254= car((V253));
  1473.     goto T995;}
  1474. T991:;
  1475.     princ_str("\n    parse_key(vs_base",VV[10]);
  1476.     if(((V224))!=Cnil){
  1477.     goto T1011;}
  1478.     if(((V225))==Cnil){
  1479.     goto T1010;}
  1480. T1011:;
  1481.     princ_char(43,VV[10]);
  1482.     { save_avma;
  1483.     V257 = stoi(length((V224)));
  1484.     V258 = stoi(length((V225)));
  1485.     V259= make_integer(addii(V257,V258));
  1486.     (void)((*(LnkLI80))(/* INLINE-ARGS */V259));restore_avma;}
  1487. T1010:;
  1488.     if(((V226))==Cnil){
  1489.     goto T1019;}
  1490.     princ_str(",TRUE,",VV[10]);
  1491.     goto T1017;
  1492. T1019:;
  1493.     princ_str(",FALSE,",VV[10]);
  1494. T1017:;
  1495.     if(((V228))==Cnil){
  1496.     goto T1025;}
  1497.     princ_str("TRUE,",VV[10]);
  1498.     goto T1023;
  1499. T1025:;
  1500.     princ_str("FALSE,",VV[10]);
  1501. T1023:;
  1502.     V260 = make_fixnum(length((V227)));
  1503.     (void)((*(LnkLI80))(V260));
  1504.     {register object V261;
  1505.     object V262;
  1506.     V261= (V227);
  1507.     V262= car((V261));
  1508. T1035:;
  1509.     if(!(endp((V261)))){
  1510.     goto T1036;}
  1511.     goto T1031;
  1512. T1036:;
  1513.     princ_str(",VV[",VV[10]);
  1514.     V263= (*(LnkLI108))(car((V262)));
  1515.     (void)((*(LnkLI80))(/* INLINE-ARGS */V263));
  1516.     princ_char(93,VV[10]);
  1517.     V261= cdr((V261));
  1518.     V262= car((V261));
  1519.     goto T1035;}
  1520. T1031:;
  1521.     princ_str(");",VV[10]);
  1522.     {register object V264;
  1523.     object V265;
  1524.     V264= (V224);
  1525.     V265= car((V264));
  1526. T1055:;
  1527.     if(!(endp((V264)))){
  1528.     goto T1056;}
  1529.     goto T1051;
  1530. T1056:;
  1531.     (void)((*(LnkLI103))((V265)));
  1532.     V264= cdr((V264));
  1533.     V265= car((V264));
  1534.     goto T1055;}
  1535. T1051:;
  1536.     if(((V225))==Cnil){
  1537.     goto T1066;}
  1538.     if(((V224))==Cnil){
  1539.     goto T1069;}
  1540.     princ_str("\n    vs_base += ",VV[10]);
  1541.     V266 = make_fixnum(length((V224)));
  1542.     (void)((*(LnkLI80))(V266));
  1543.     princ_char(59,VV[10]);
  1544. T1069:;
  1545.     bds_bind(VV[25],(VV[25]->s.s_dbind));
  1546.     bds_bind(VV[52],(VV[52]->s.s_dbind));
  1547.     bds_bind(VV[26],(VV[26]->s.s_dbind));
  1548.     {register object V267;
  1549.     V267= (V225);
  1550. T1077:;
  1551.     if(!(endp((V267)))){
  1552.     goto T1078;}
  1553.     bds_unwind1;
  1554.     bds_unwind1;
  1555.     bds_unwind1;
  1556.     goto T1075;
  1557. T1078:;
  1558.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  1559.     V268= make_cons(symbol_value(VV[57]),Cnil);
  1560.     V229= make_cons(/* INLINE-ARGS */V268,(V229));
  1561.     princ_str("\n    if(vs_base>=vs_top){vs_top=sup;",VV[10]);
  1562.     if(type_of(car((V229)))!=t_cons)FEwrong_type_argument(Scons,car((V229)));
  1563.     (car((V229)))->c.c_cdr = Ct;
  1564.     (void)(car((V229)));
  1565.     princ_str("goto T",VV[10]);
  1566.     (void)((*(LnkLI80))(car(car((V229)))));
  1567.     princ_char(59,VV[10]);
  1568.     princ_char(125,VV[10]);
  1569.     (void)((*(LnkLI103))(caar((V267))));
  1570.     if((caddar((V267)))==Cnil){
  1571.     goto T1095;}
  1572.     (void)((*(LnkLI105))(caddar((V267)),Ct));
  1573. T1095:;
  1574.     if((cdr((V267)))==Cnil){
  1575.     goto T1098;}
  1576.     princ_str("\n    vs_base++;",VV[10]);
  1577. T1098:;
  1578.     V267= cdr((V267));
  1579.     goto T1077;}
  1580. T1075:;
  1581.     V229= reverse((V229));
  1582. T1066:;
  1583.     princ_str("\n    vs_top=sup;",VV[10]);
  1584.     if(((V225))==Cnil){
  1585.     goto T1108;}
  1586.     {object V269;
  1587.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  1588.     V269= make_cons(symbol_value(VV[57]),Cnil);
  1589.     if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269));
  1590.     ((V269))->c.c_cdr = Ct;
  1591.     princ_str("goto T",VV[10]);
  1592.     (void)((*(LnkLI80))(car((V269))));
  1593.     princ_char(59,VV[10]);
  1594.     {register object V270;
  1595.     register object V271;
  1596.     V270= (V225);
  1597.     V271= car((V270));
  1598. T1122:;
  1599.     if(!(endp((V270)))){
  1600.     goto T1123;}
  1601.     goto T1118;
  1602. T1123:;
  1603.     if((cdr(car((V229))))==Cnil){
  1604.     goto T1127;}
  1605.     princ_str("\nT",VV[10]);
  1606.     (void)((*(LnkLI80))(car(car((V229)))));
  1607.     princ_str(":;",VV[10]);
  1608. T1127:;
  1609.     {object V272;
  1610.     V272= car((V229));
  1611.     V229= cdr((V229));}
  1612.     (void)((*(LnkLI106))(car((V271)),cadr((V271))));
  1613.     if((caddr((V271)))==Cnil){
  1614.     goto T1138;}
  1615.     (void)((*(LnkLI105))(caddr((V271)),Cnil));
  1616. T1138:;
  1617.     V270= cdr((V270));
  1618.     V271= car((V270));
  1619.     goto T1122;}
  1620. T1118:;
  1621.     if((cdr((V269)))==Cnil){
  1622.     goto T1108;}
  1623.     princ_str("\nT",VV[10]);
  1624.     (void)((*(LnkLI80))(car((V269))));
  1625.     princ_str(":;",VV[10]);}
  1626. T1108:;
  1627.     if(((V226))==Cnil){
  1628.     goto T1151;}
  1629.     (void)((*(LnkLI103))((V226)));
  1630. T1151:;
  1631.     {register object V273;
  1632.     register object V274;
  1633.     V273= (V227);
  1634.     V274= car((V273));
  1635. T1158:;
  1636.     if(!(endp((V273)))){
  1637.     goto T1159;}
  1638.     goto T1154;
  1639. T1159:;
  1640.     if(!((caaddr((V274)))==(VV[61]))){
  1641.     goto T1165;}
  1642.     if((caddr(caddr((V274))))!=Cnil){
  1643.     goto T1165;}
  1644.     (void)((*(LnkLI103))(cadr((V274))));
  1645.     goto T1163;
  1646. T1165:;
  1647.     princ_str("\n    if(",VV[10]);
  1648.     V275= structure_ref(cadddr((V274)),VV[6],2);
  1649.     (void)((*(LnkLI109))(/* INLINE-ARGS */V275));
  1650.     princ_str("==Cnil){",VV[10]);
  1651.     bds_bind(VV[25],(VV[25]->s.s_dbind));
  1652.     bds_bind(VV[52],(VV[52]->s.s_dbind));
  1653.     bds_bind(VV[26],(VV[26]->s.s_dbind));
  1654.     V276= (*(LnkLI106))(cadr((V274)),caddr((V274)));
  1655.     bds_unwind1;
  1656.     bds_unwind1;
  1657.     bds_unwind1;
  1658.     princ_str("\n    }else{",VV[10]);
  1659.     (void)((*(LnkLI103))(cadr((V274))));
  1660.     princ_char(125,VV[10]);
  1661. T1163:;
  1662.     V277= structure_ref(cadddr((V274)),VV[6],1);
  1663.     if((/* INLINE-ARGS */V277)==(VV[40])){
  1664.     goto T1179;}
  1665.     (void)((*(LnkLI103))(cadddr((V274))));
  1666. T1179:;
  1667.     V273= cdr((V273));
  1668.     V274= car((V273));
  1669.     goto T1158;}
  1670. T1154:;
  1671.     base[10]= (V223);
  1672.     vs_top=(vs_base=base+10)+1;
  1673.     (void) (*Lnk107)();
  1674.     vs_top=sup;
  1675.     if((base[9])==Cnil){
  1676.     goto T1190;}
  1677.     princ_str("\n    }",VV[10]);
  1678.     {object V278 = Cnil;
  1679.     bds_unwind1;
  1680.     bds_unwind1;
  1681.     bds_unwind1;
  1682.     bds_unwind1;
  1683.     VMR14(V278)}
  1684. T1190:;
  1685.     {object V279 = Cnil;
  1686.     bds_unwind1;
  1687.     bds_unwind1;
  1688.     bds_unwind1;
  1689.     bds_unwind1;
  1690.     VMR14(V279)}}
  1691. }
  1692. /*    local entry for function NEED-TO-SET-VS-POINTERS    */
  1693.  
  1694. static object LI17(V281)
  1695.  
  1696. object V281;
  1697. {     VMB15 VMS15 VMV15
  1698. TTL:;
  1699.     if(symbol_value(VV[55])!=Cnil){
  1700.     {object V282 = symbol_value(VV[55]);
  1701.     VMR15(V282)}}
  1702.     if(symbol_value(VV[56])!=Cnil){
  1703.     {object V283 = symbol_value(VV[56]);
  1704.     VMR15(V283)}}{object V284;
  1705.     V284= cadr((V281));
  1706.     if(V284==Cnil)goto T1193;
  1707.     {object V285 = V284;
  1708.     VMR15(V285)}
  1709. T1193:;}{object V286;
  1710.     V286= caddr((V281));
  1711.     if(V286==Cnil)goto T1195;
  1712.     {object V287 = V286;
  1713.     VMR15(V287)}
  1714. T1195:;}
  1715.     {object V288 = cadddr((V281));
  1716.     VMR15(V288)}
  1717. }
  1718. /*    local entry for function C1DM    */
  1719.  
  1720. static object LI18(V292,V293,V294)
  1721.  
  1722. object V292;register object V293;register object V294;
  1723. {     VMB16 VMS16 VMV16
  1724.     bds_check;
  1725. TTL:;
  1726.     {object V295;
  1727.     object V296;
  1728.     object V297;
  1729.     object V298;
  1730.     register object V299;
  1731.     register object V300;
  1732.     register object V301;
  1733.     object V302;
  1734.     object V303;
  1735.     bds_bind(VV[53],symbol_value(VV[53]));
  1736.     V295= Cnil;
  1737.     V296= Cnil;
  1738.     V297= symbol_value(VV[31]);
  1739.     bds_bind(VV[62],Cnil);
  1740.     bds_bind(VV[63],(VFUN_NARGS=0,(*(LnkLI85))()));
  1741.     bds_bind(VV[64],Cnil);
  1742.     V298= Cnil;
  1743.     V299= Cnil;
  1744.     V300= Cnil;
  1745.     V301= Cnil;
  1746.     V302= Cnil;
  1747.     V303= Cnil;
  1748.     base[4]= (V294);
  1749.     base[5]= Ct;
  1750.     vs_top=(vs_base=base+4)+2;
  1751.     (void) (*Lnk87)();
  1752.     if(vs_base<vs_top){
  1753.     V294= vs_base[0];
  1754.     vs_base++;
  1755.     }else{
  1756.     V294= Cnil;}
  1757.     if(vs_base<vs_top){
  1758.     V299= vs_base[0];
  1759.     vs_base++;
  1760.     }else{
  1761.     V299= Cnil;}
  1762.     if(vs_base<vs_top){
  1763.     V301= vs_base[0];
  1764.     vs_base++;
  1765.     }else{
  1766.     V301= Cnil;}
  1767.     if(vs_base<vs_top){
  1768.     V300= vs_base[0];
  1769.     vs_base++;
  1770.     }else{
  1771.     V300= Cnil;}
  1772.     if(vs_base<vs_top){
  1773.     V302= vs_base[0];
  1774.     vs_base++;
  1775.     }else{
  1776.     V302= Cnil;}
  1777.     if(vs_base<vs_top){
  1778.     V298= vs_base[0];
  1779.     }else{
  1780.     V298= Cnil;}
  1781.     vs_top=sup;
  1782.     V304= listA(3,VV[33],(V292),(V294));
  1783.     V294= make_cons(/* INLINE-ARGS */V304,Cnil);
  1784.     (void)((*(LnkLI88))((V299)));
  1785.     if(!(type_of((V293))==t_cons||((V293))==Cnil)){
  1786.     goto T1214;}
  1787.     if(!((car((V293)))==(VV[65]))){
  1788.     goto T1214;}
  1789.     (VV[62]->s.s_dbind)= make_cons(cadr((V293)),(VV[62]->s.s_dbind));
  1790.     V295= (*(LnkLI89))(cadr((V293)),(V299),(V300),(V301));
  1791.     (VV[64]->s.s_dbind)= make_cons((V295),(VV[64]->s.s_dbind));
  1792.     setq(VV[30],make_cons((V295),symbol_value(VV[30])));
  1793.     V293= cddr((V293));
  1794. T1214:;
  1795.     {register object V305;
  1796.     if(type_of((V293))==t_cons||((V293))==Cnil){
  1797.     goto T1230;}
  1798.     V305= Cnil;
  1799.     goto T1229;
  1800. T1230:;
  1801.     {register object V306;
  1802.     V306= (V293);
  1803. T1233:;
  1804.     if(type_of((V306))==t_cons){
  1805.     goto T1234;}
  1806.     V305= Cnil;
  1807.     goto T1229;
  1808. T1234:;
  1809.     if(!((VV[66])==(car((V306))))){
  1810.     goto T1238;}
  1811.     V305= (V306);
  1812.     goto T1229;
  1813. T1238:;
  1814.     V306= cdr((V306));
  1815.     goto T1233;}
  1816. T1229:;
  1817.     if(((V305))==Cnil){
  1818.     goto T1228;}
  1819.     (VV[62]->s.s_dbind)= make_cons(cadr((V305)),(VV[62]->s.s_dbind));
  1820.     V296= (*(LnkLI89))(cadr((V305)),(V299),(V300),(V301));
  1821.     (VV[64]->s.s_dbind)= make_cons((V296),(VV[64]->s.s_dbind));
  1822.     setq(VV[30],make_cons((V296),symbol_value(VV[30])));
  1823.     base[4]= (V293);
  1824.     base[5]= (V305);
  1825.     vs_top=(vs_base=base+4)+2;
  1826.     Lldiff();
  1827.     vs_top=sup;
  1828.     V307= vs_base[0];
  1829.     V293= append(V307,cddr((V305)));}
  1830. T1228:;
  1831.     base[4]= (V293);
  1832.     base[5]= (V299);
  1833.     base[6]= (V300);
  1834.     base[7]= (V301);
  1835.     vs_top=(vs_base=base+4)+4;
  1836.     (void) (*Lnk110)();
  1837.     if(vs_base<vs_top){
  1838.     V293= vs_base[0];
  1839.     vs_base++;
  1840.     }else{
  1841.     V293= Cnil;}
  1842.     if(vs_base<vs_top){
  1843.     V303= vs_base[0];
  1844.     }else{
  1845.     V303= Cnil;}
  1846.     vs_top=sup;
  1847.     (void)((*(LnkLI95))((VV[62]->s.s_dbind),(V301),(V300)));
  1848.     V294= (*(LnkLI96))((V302),(V294));{object V308;
  1849.     V308= (VV[63]->s.s_dbind);
  1850.     (void)((*(LnkLI94))(V308,cadr((V294))));}
  1851.     {object V309;
  1852.     V309= (eql((V297),symbol_value(VV[31]))?Ct:Cnil);
  1853.     if(((V309))==Cnil){
  1854.     goto T1271;}
  1855.     goto T1268;
  1856. T1271:;
  1857.     (void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));
  1858.     (void)(sputprop((V292),VV[67],Ct));}
  1859. T1268:;
  1860.     {register object V310;
  1861.     register object V311;
  1862.     V310= (VV[64]->s.s_dbind);
  1863.     V311= car((V310));
  1864. T1278:;
  1865.     if(!(endp((V310)))){
  1866.     goto T1279;}
  1867.     goto T1274;
  1868. T1279:;
  1869.     (void)((*(LnkLI97))((V311)));
  1870.     V310= cdr((V310));
  1871.     V311= car((V310));
  1872.     goto T1278;}
  1873. T1274:;
  1874.     {object V312 = list(7,(V298),(V303),(V295),(V296),(V293),(V294),(VV[63]->s.s_dbind));
  1875.     bds_unwind1;
  1876.     bds_unwind1;
  1877.     bds_unwind1;
  1878.     bds_unwind1;
  1879.     VMR16(V312)}}
  1880. }
  1881. /*    function definition for C1DM-VL    */
  1882.  
  1883. static L19()
  1884. {register object *base=vs_base;
  1885.     register object *sup=base+VM17; VC17
  1886.     vs_reserve(VM17);
  1887.     {register object V313;
  1888.     register object V314;
  1889.     register object V315;
  1890.     register object V316;
  1891.     check_arg(4);
  1892.     V313=(base[0]);
  1893.     V314=(base[1]);
  1894.     V315=(base[2]);
  1895.     V316=(base[3]);
  1896.     vs_top=sup;
  1897. TTL:;
  1898.     {register object V317;
  1899.     object V318;
  1900.     object V319;
  1901.     object V320;
  1902.     object V321;
  1903.     object V322;
  1904.     object V323;
  1905.     object V324;
  1906.     object V325;
  1907.     object V326;
  1908.     object V327;
  1909.     object V328;
  1910.     object V329;
  1911.     object V330;
  1912.     V317= Cnil;
  1913.     V318= Cnil;
  1914.     V319= Cnil;
  1915.     V320= Cnil;
  1916.     V321= Cnil;
  1917.     V322= Cnil;
  1918.     V323= Cnil;
  1919.     V324= Cnil;
  1920.     V325= Cnil;
  1921.     V326= Cnil;
  1922.     V327= Cnil;
  1923.     V328= Cnil;
  1924.     V329= small_fixnum(0);
  1925.     V330= Cnil;
  1926. T1290:;
  1927.     if(type_of((V313))==t_cons){
  1928.     goto T1291;}
  1929.     if(((V313))==Cnil){
  1930.     goto T1294;}
  1931.     if(((V318))==Cnil){
  1932.     goto T1297;}
  1933.     base[4]= VV[68];
  1934.     vs_top=(vs_base=base+4)+1;
  1935.     (void) (*Lnk111)();
  1936.     vs_top=sup;
  1937. T1297:;
  1938.     base[4]= (V313);
  1939.     base[5]= (V314);
  1940.     base[6]= (V315);
  1941.     base[7]= (V316);
  1942.     vs_top=(vs_base=base+4)+4;
  1943.     (void) (*Lnk112)();
  1944.     vs_top=sup;
  1945.     V324= vs_base[0];
  1946. T1294:;
  1947.     V331= reverse((V322));
  1948.     V332= reverse((V323));
  1949.     V333= reverse((V326));
  1950.     base[4]= list(7,/* INLINE-ARGS */V331,/* INLINE-ARGS */V332,(V324),(V325),/* INLINE-ARGS */V333,(V328),reverse((V327)));
  1951.     base[5]= (V330);
  1952.     vs_top=(vs_base=base+4)+2;
  1953.     return;
  1954. T1291:;
  1955.     {register object V334;
  1956.     V334= car((V313));
  1957.     if(!(((V334))==(VV[69]))){
  1958.     goto T1312;}
  1959.     if(((V317))==Cnil){
  1960.     goto T1314;}
  1961.     base[4]= VV[69];
  1962.     vs_top=(vs_base=base+4)+1;
  1963.     (void) (*Lnk111)();
  1964.     vs_top=sup;
  1965. T1314:;
  1966.     V317= Ct;
  1967.     {object V335;
  1968.     V335= car((V313));
  1969.     V313= cdr((V313));
  1970.     goto T1309;}
  1971. T1312:;
  1972.     if(((V334))==(VV[68])){
  1973.     goto T1323;}
  1974.     if(!(((V334))==(VV[70]))){
  1975.     goto T1324;}
  1976. T1323:;
  1977.     if(((V318))==Cnil){
  1978.     goto T1328;}
  1979.     base[4]= (V334);
  1980.     vs_top=(vs_base=base+4)+1;
  1981.     (void) (*Lnk111)();
  1982.     vs_top=sup;
  1983. T1328:;
  1984.     base[4]= cadr((V313));
  1985.     base[5]= (V314);
  1986.     base[6]= (V315);
  1987.     base[7]= (V316);
  1988.     vs_top=(vs_base=base+4)+4;
  1989.     (void) (*Lnk112)();
  1990.     vs_top=sup;
  1991.     V324= vs_base[0];
  1992.     V318= Ct;
  1993.     V317= Ct;
  1994.     V313= cddr((V313));
  1995.     if(!(((V334))==(VV[70]))){
  1996.     goto T1309;}
  1997.     V330= (V329);
  1998.     goto T1309;
  1999. T1324:;
  2000.     if(!(((V334))==(VV[71]))){
  2001.     goto T1348;}
  2002.     if(((V319))==Cnil){
  2003.     goto T1350;}
  2004.     base[4]= VV[71];
  2005.     vs_top=(vs_base=base+4)+1;
  2006.     (void) (*Lnk111)();
  2007.     vs_top=sup;
  2008. T1350:;
  2009.     V319= Ct;
  2010.     V318= Ct;
  2011.     V317= Ct;
  2012.     V325= Ct;
  2013.     {object V336;
  2014.     V336= car((V313));
  2015.     V313= cdr((V313));
  2016.     goto T1309;}
  2017. T1348:;
  2018.     if(!(((V334))==(VV[72]))){
  2019.     goto T1366;}
  2020.     if(((V319))==Cnil){
  2021.     goto T1369;}
  2022.     if(((V320))==Cnil){
  2023.     goto T1368;}
  2024. T1369:;
  2025.     base[4]= VV[72];
  2026.     vs_top=(vs_base=base+4)+1;
  2027.     (void) (*Lnk111)();
  2028.     vs_top=sup;
  2029. T1368:;
  2030.     V320= Ct;
  2031.     V328= Ct;
  2032.     {object V337;
  2033.     V337= car((V313));
  2034.     V313= cdr((V313));
  2035.     goto T1309;}
  2036. T1366:;
  2037.     if(!(((V334))==(VV[73]))){
  2038.     goto T1382;}
  2039.     if(((V321))==Cnil){
  2040.     goto T1384;}
  2041.     base[4]= VV[73];
  2042.     vs_top=(vs_base=base+4)+1;
  2043.     (void) (*Lnk111)();
  2044.     vs_top=sup;
  2045. T1384:;
  2046.     V321= Ct;
  2047.     V320= Ct;
  2048.     V319= Ct;
  2049.     V318= Ct;
  2050.     V317= Ct;
  2051.     {object V338;
  2052.     V338= car((V313));
  2053.     V313= cdr((V313));
  2054.     goto T1309;}
  2055. T1382:;
  2056.     if(((V321))==Cnil){
  2057.     goto T1402;}
  2058.     {object V339;
  2059.     object V340;
  2060.     V339= Cnil;
  2061.     V340= Cnil;
  2062.     if(!(type_of((V334))==t_symbol)){
  2063.     goto T1407;}
  2064.     V339= (V334);
  2065.     V340= (*(LnkLI113))();
  2066.     goto T1405;
  2067. T1407:;
  2068.     V339= car((V334));
  2069.     if(!(endp(cdr((V334))))){
  2070.     goto T1415;}
  2071.     V340= (*(LnkLI113))();
  2072.     goto T1405;
  2073. T1415:;
  2074.     V340= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));
  2075. T1405:;
  2076.     base[4]= (V339);
  2077.     base[5]= (V314);
  2078.     base[6]= (V315);
  2079.     base[7]= (V316);
  2080.     vs_top=(vs_base=base+4)+4;
  2081.     (void) (*Lnk112)();
  2082.     vs_top=sup;
  2083.     V341= vs_base[0];
  2084.     V342= list(2,V341,(V340));
  2085.     V327= make_cons(/* INLINE-ARGS */V342,(V327));}
  2086.     {object V343;
  2087.     V343= car((V313));
  2088.     V313= cdr((V313));
  2089.     goto T1309;}
  2090. T1402:;
  2091.     if(((V319))==Cnil){
  2092.     goto T1429;}
  2093.     {object V344;
  2094.     object V345;
  2095.     object V346;
  2096.     object V347;
  2097.     V344= Cnil;
  2098.     V345= Cnil;
  2099.     V346= Cnil;
  2100.     V347= Cnil;
  2101.     if(!(type_of((V334))==t_symbol)){
  2102.     goto T1434;}
  2103.     V344= (V334);
  2104.     base[4]= coerce_to_string((V334));
  2105.     base[5]= VV[38];
  2106.     vs_top=(vs_base=base+4)+2;
  2107.     Lintern();
  2108.     vs_top=sup;
  2109.     V345= vs_base[0];
  2110.     V346= (*(LnkLI113))();
  2111.     goto T1432;
  2112. T1434:;
  2113.     if(!(type_of(car((V334)))==t_symbol)){
  2114.     goto T1445;}
  2115.     V344= car((V334));
  2116.     base[4]= coerce_to_string(car((V334)));
  2117.     base[5]= VV[38];
  2118.     vs_top=(vs_base=base+4)+2;
  2119.     Lintern();
  2120.     vs_top=sup;
  2121.     V345= vs_base[0];
  2122.     goto T1443;
  2123. T1445:;
  2124.     V344= cadar((V334));
  2125.     V345= caar((V334));
  2126. T1443:;
  2127.     if(!(endp(cdr((V334))))){
  2128.     goto T1456;}
  2129.     V346= (*(LnkLI113))();
  2130.     goto T1432;
  2131. T1456:;
  2132.     V346= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));
  2133.     if(endp(cddr((V334)))){
  2134.     goto T1432;}
  2135.     V347= caddr((V334));
  2136. T1432:;
  2137.     base[4]= (V344);
  2138.     base[5]= (V314);
  2139.     base[6]= (V315);
  2140.     base[7]= (V316);
  2141.     vs_top=(vs_base=base+4)+4;
  2142.     (void) (*Lnk112)();
  2143.     vs_top=sup;
  2144.     V348= vs_base[0];
  2145.     if(((V347))==Cnil){
  2146.     goto T1472;}
  2147.     base[4]= (V347);
  2148.     base[5]= (V314);
  2149.     base[6]= (V315);
  2150.     base[7]= (V316);
  2151.     vs_top=(vs_base=base+4)+4;
  2152.     (void) (*Lnk112)();
  2153.     vs_top=sup;
  2154.     V349= vs_base[0];
  2155.     goto T1470;
  2156. T1472:;
  2157.     V349= Cnil;
  2158. T1470:;
  2159.     V350= list(4,(V345),V348,(V346),V349);
  2160.     V326= make_cons(/* INLINE-ARGS */V350,(V326));}
  2161.     {object V351;
  2162.     V351= car((V313));
  2163.     V313= cdr((V313));
  2164.     goto T1309;}
  2165. T1429:;
  2166.     if(((V317))==Cnil){
  2167.     goto T1482;}
  2168.     {object V352;
  2169.     object V353;
  2170.     object V354;
  2171.     V352= Cnil;
  2172.     V353= Cnil;
  2173.     V354= Cnil;
  2174.     if(!(type_of((V334))==t_symbol)){
  2175.     goto T1487;}
  2176.     V352= (V334);
  2177.     V353= (*(LnkLI113))();
  2178.     goto T1485;
  2179. T1487:;
  2180.     V352= car((V334));
  2181.     if(!(endp(cdr((V334))))){
  2182.     goto T1495;}
  2183.     V353= (*(LnkLI113))();
  2184.     goto T1485;
  2185. T1495:;
  2186.     V353= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));
  2187.     if(endp(cddr((V334)))){
  2188.     goto T1485;}
  2189.     V354= caddr((V334));
  2190. T1485:;
  2191.     base[4]= (V352);
  2192.     base[5]= (V314);
  2193.     base[6]= (V315);
  2194.     base[7]= (V316);
  2195.     vs_top=(vs_base=base+4)+4;
  2196.     (void) (*Lnk112)();
  2197.     vs_top=sup;
  2198.     V355= vs_base[0];
  2199.     if(((V354))==Cnil){
  2200.     goto T1511;}
  2201.     base[4]= (V354);
  2202.     base[5]= (V314);
  2203.     base[6]= (V315);
  2204.     base[7]= (V316);
  2205.     vs_top=(vs_base=base+4)+4;
  2206.     (void) (*Lnk112)();
  2207.     vs_top=sup;
  2208.     V356= vs_base[0];
  2209.     goto T1509;
  2210. T1511:;
  2211.     V356= Cnil;
  2212. T1509:;
  2213.     V357= list(3,V355,(V353),V356);
  2214.     V323= make_cons(/* INLINE-ARGS */V357,(V323));}
  2215.     {object V358;
  2216.     V358= car((V313));
  2217.     V313= cdr((V313));}
  2218.     V329= number_plus((V329),small_fixnum(1));
  2219.     goto T1309;
  2220. T1482:;
  2221.     base[4]= (V334);
  2222.     base[5]= (V314);
  2223.     base[6]= (V315);
  2224.     base[7]= (V316);
  2225.     vs_top=(vs_base=base+4)+4;
  2226.     (void) (*Lnk112)();
  2227.     vs_top=sup;
  2228.     V359= vs_base[0];
  2229.     V322= make_cons(V359,(V322));
  2230.     {object V360;
  2231.     V360= car((V313));
  2232.     V313= cdr((V313));}
  2233.     V329= number_plus((V329),small_fixnum(1));}
  2234. T1309:;
  2235.     goto T1290;}
  2236.     }
  2237. }
  2238. /*    function definition for C1DM-V    */
  2239.  
  2240. static L20()
  2241. {register object *base=vs_base;
  2242.     register object *sup=base+VM18; VC18
  2243.     vs_reserve(VM18);
  2244.     {register object V361;
  2245.     object V362;
  2246.     object V363;
  2247.     object V364;
  2248.     check_arg(4);
  2249.     V361=(base[0]);
  2250.     V362=(base[1]);
  2251.     V363=(base[2]);
  2252.     V364=(base[3]);
  2253.     vs_top=sup;
  2254. TTL:;
  2255.     if(!(type_of((V361))==t_symbol)){
  2256.     goto T1537;}
  2257.     setq(VV[62],make_cons((V361),symbol_value(VV[62])));
  2258.     V361= (*(LnkLI89))((V361),(V362),(V363),(V364));
  2259.     setq(VV[30],make_cons((V361),symbol_value(VV[30])));
  2260.     setq(VV[64],make_cons((V361),symbol_value(VV[64])));
  2261.     base[4]= (V361);
  2262.     vs_top=(vs_base=base+4)+1;
  2263.     return;
  2264. T1537:;
  2265.     base[4]= (V361);
  2266.     base[5]= (V362);
  2267.     base[6]= (V363);
  2268.     base[7]= (V364);
  2269.     vs_top=(vs_base=base+4)+4;
  2270.     (void) (*Lnk110)();
  2271.     return;
  2272.     }
  2273. }
  2274. /*    local entry for function C1DM-BAD-KEY    */
  2275.  
  2276. static object LI21(V366)
  2277.  
  2278. object V366;
  2279. {     VMB19 VMS19 VMV19
  2280. TTL:;
  2281.     {object V367 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V366)));
  2282.     VMR19(V367)}
  2283. }
  2284. /*    function definition for C2DM    */
  2285.  
  2286. static L22()
  2287. {register object *base=vs_base;
  2288.     register object *sup=base+VM20; VC20
  2289.     vs_reserve(VM20);
  2290.     {register object V368;
  2291.     register object V369;
  2292.     object V370;
  2293.     object V371;
  2294.     check_arg(4);
  2295.     V368=(base[0]);
  2296.     V369=(base[1]);
  2297.     V370=(base[2]);
  2298.     V371=(base[3]);
  2299.     vs_top=sup;
  2300. TTL:;
  2301.     {object V372;
  2302.     setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
  2303.     V372= symbol_value(VV[54]);
  2304.     if((symbol_value(VV[55]))!=Cnil){
  2305.     goto T1554;}
  2306.     if((symbol_value(VV[56]))==Cnil){
  2307.     goto T1553;}
  2308. T1554:;
  2309.     princ_str("\n    check_arg(2);",VV[10]);
  2310. T1553:;
  2311.     if(((V368))==Cnil){
  2312.     goto T1561;}
  2313.     V373= (*(LnkLI102))();
  2314.     (void)(structure_set((V368),VV[6],2,/* INLINE-ARGS */V373));
  2315.     goto T1559;
  2316. T1561:;
  2317.     (void)((*(LnkLI102))());
  2318. T1559:;
  2319.     if(((V369))==Cnil){
  2320.     goto T1565;}
  2321.     V374= (*(LnkLI102))();
  2322.     (void)(structure_set((V369),VV[6],2,/* INLINE-ARGS */V374));
  2323.     goto T1563;
  2324. T1565:;
  2325.     (void)((*(LnkLI102))());
  2326. T1563:;
  2327.     (void)((*(LnkLI114))((V370)));
  2328.     princ_str("\n    vs_top=sup;",VV[10]);
  2329.     if(((V368))==Cnil){
  2330.     goto T1570;}
  2331.     (void)((*(LnkLI103))((V368)));
  2332. T1570:;
  2333.     if(((V369))==Cnil){
  2334.     goto T1573;}
  2335.     (void)((*(LnkLI103))((V369)));
  2336. T1573:;
  2337.     princ_str("\n    {object V",VV[10]);
  2338.     (void)((*(LnkLI80))((V372)));
  2339.     princ_str("=base[0]->c.c_cdr;",VV[10]);
  2340.     (void)((*(LnkLI115))((V370),(V372)));
  2341.     princ_char(125,VV[10]);
  2342.     base[5]= (V371);
  2343.     vs_top=(vs_base=base+5)+1;
  2344.     (void) (*Lnk107)();
  2345.     return;}
  2346.     }
  2347. }
  2348. /*    local entry for function C2DM-RESERVE-VL    */
  2349.  
  2350. static object LI23(V376)
  2351.  
  2352. object V376;
  2353. {     VMB21 VMS21 VMV21
  2354. TTL:;
  2355.     {register object V377;
  2356.     object V378;
  2357.     V377= car((V376));
  2358.     V378= car((V377));
  2359. T1588:;
  2360.     if(!(endp((V377)))){
  2361.     goto T1589;}
  2362.     goto T1584;
  2363. T1589:;
  2364.     (void)((*(LnkLI116))((V378)));
  2365.     V377= cdr((V377));
  2366.     V378= car((V377));
  2367.     goto T1588;}
  2368. T1584:;
  2369.     {register object V379;
  2370.     register object V380;
  2371.     V379= cadr((V376));
  2372.     V380= car((V379));
  2373. T1603:;
  2374.     if(!(endp((V379)))){
  2375.     goto T1604;}
  2376.     goto T1599;
  2377. T1604:;
  2378.     (void)((*(LnkLI116))(car((V380))));
  2379.     if((caddr((V380)))==Cnil){
  2380.     goto T1609;}
  2381.     (void)((*(LnkLI116))(caddr((V380))));
  2382. T1609:;
  2383.     V379= cdr((V379));
  2384.     V380= car((V379));
  2385.     goto T1603;}
  2386. T1599:;
  2387.     if((caddr((V376)))==Cnil){
  2388.     goto T1617;}
  2389.     (void)((*(LnkLI116))(caddr((V376))));
  2390. T1617:;
  2391.     {register object V381;
  2392.     register object V382;
  2393.     V381= car(cddddr((V376)));
  2394.     V382= car((V381));
  2395. T1624:;
  2396.     if(!(endp((V381)))){
  2397.     goto T1625;}
  2398.     goto T1620;
  2399. T1625:;
  2400.     (void)((*(LnkLI116))(cadr((V382))));
  2401.     if((cadddr((V382)))==Cnil){
  2402.     goto T1630;}
  2403.     (void)((*(LnkLI116))(cadddr((V382))));
  2404. T1630:;
  2405.     V381= cdr((V381));
  2406.     V382= car((V381));
  2407.     goto T1624;}
  2408. T1620:;
  2409.     {register object V383;
  2410.     object V384;
  2411.     V383= caddr(cddddr((V376)));
  2412.     V384= car((V383));
  2413. T1641:;
  2414.     if(!(endp((V383)))){
  2415.     goto T1642;}
  2416.     {object V385 = Cnil;
  2417.     VMR21(V385)}
  2418. T1642:;
  2419.     (void)((*(LnkLI116))(car((V384))));
  2420.     V383= cdr((V383));
  2421.     V384= car((V383));
  2422.     goto T1641;}
  2423. }
  2424. /*    local entry for function C2DM-RESERVE-V    */
  2425.  
  2426. static object LI24(V387)
  2427.  
  2428. object V387;
  2429. {     VMB22 VMS22 VMV22
  2430. TTL:;
  2431.     if(!(type_of((V387))==t_cons)){
  2432.     goto T1653;}
  2433.     {object V388 = (*(LnkLI114))((V387));
  2434.     VMR22(V388)}
  2435. T1653:;
  2436.     V389= (*(LnkLI102))();
  2437.     {object V390 = structure_set((V387),VV[6],2,/* INLINE-ARGS */V389);
  2438.     VMR22(V390)}
  2439. }
  2440. /*    local entry for function C2DM-BIND-VL    */
  2441.  
  2442. static object LI25(V393,V394)
  2443.  
  2444. object V393;register object V394;
  2445. {     VMB23 VMS23 VMV23
  2446.     bds_check;
  2447. TTL:;
  2448.     {object V395;
  2449.     object V396;
  2450.     object V397;
  2451.     object V398;
  2452.     object V399;
  2453.     object V400;
  2454.     object V401;
  2455.     V395= car((V393));
  2456.     V396= cadr((V393));
  2457.     V397= caddr((V393));
  2458.     V398= cadddr((V393));
  2459.     V399= car(cddddr((V393)));
  2460.     V400= cadr(cddddr((V393)));
  2461.     V401= caddr(cddddr((V393)));
  2462.     {register object V402;
  2463.     V402= (V395);
  2464. T1664:;
  2465.     if(!(endp((V402)))){
  2466.     goto T1665;}
  2467.     goto T1662;
  2468. T1665:;
  2469.     if((symbol_value(VV[55]))!=Cnil){
  2470.     goto T1670;}
  2471.     if((symbol_value(VV[56]))==Cnil){
  2472.     goto T1669;}
  2473. T1670:;
  2474.     princ_str("\n    if(endp(V",VV[10]);
  2475.     (void)((*(LnkLI80))((V394)));
  2476.     princ_str("))invalid_macro_call();",VV[10]);
  2477. T1669:;
  2478.     V403= car((V402));
  2479.     V404= list(2,VV[75],(V394));
  2480.     (void)((*(LnkLI117))(/* INLINE-ARGS */V403,/* INLINE-ARGS */V404));
  2481.     if((cdr((V402)))!=Cnil){
  2482.     goto T1679;}
  2483.     if(((V396))!=Cnil){
  2484.     goto T1679;}
  2485.     if(((V397))!=Cnil){
  2486.     goto T1679;}
  2487.     if(((V398))!=Cnil){
  2488.     goto T1679;}
  2489.     if((symbol_value(VV[55]))!=Cnil){
  2490.     goto T1679;}
  2491.     if((symbol_value(VV[56]))==Cnil){
  2492.     goto T1678;}
  2493. T1679:;
  2494.     princ_str("\n    V",VV[10]);
  2495.     (void)((*(LnkLI80))((V394)));
  2496.     princ_str("=V",VV[10]);
  2497.     (void)((*(LnkLI80))((V394)));
  2498.     princ_str("->c.c_cdr;",VV[10]);
  2499. T1678:;
  2500.     V402= cdr((V402));
  2501.     goto T1664;}
  2502. T1662:;
  2503.     {register object V405;
  2504.     V405= (V396);
  2505. T1701:;
  2506.     if(!(endp((V405)))){
  2507.     goto T1702;}
  2508.     goto T1699;
  2509. T1702:;
  2510.     {register object V406;
  2511.     V406= car((V405));
  2512.     princ_str("\n    if(endp(V",VV[10]);
  2513.     (void)((*(LnkLI80))((V394)));
  2514.     princ_str(")){",VV[10]);
  2515.     bds_bind(VV[25],symbol_value(VV[25]));
  2516.     bds_bind(VV[52],symbol_value(VV[52]));
  2517.     bds_bind(VV[26],symbol_value(VV[26]));
  2518.     (void)((*(LnkLI118))(car((V406)),cadr((V406))));
  2519.     if((caddr((V406)))==Cnil){
  2520.     bds_unwind1;
  2521.     bds_unwind1;
  2522.     bds_unwind1;
  2523.     goto T1712;}
  2524.     V407= (*(LnkLI117))(caddr((V406)),Cnil);
  2525.     bds_unwind1;
  2526.     bds_unwind1;
  2527.     bds_unwind1;
  2528. T1712:;
  2529.     princ_str("\n    } else {",VV[10]);
  2530.     V408= car((V406));
  2531.     V409= list(2,VV[75],(V394));
  2532.     (void)((*(LnkLI117))(/* INLINE-ARGS */V408,/* INLINE-ARGS */V409));
  2533.     if((caddr((V406)))==Cnil){
  2534.     goto T1706;}
  2535.     (void)((*(LnkLI117))(caddr((V406)),Ct));}
  2536. T1706:;
  2537.     if((cdr((V405)))!=Cnil){
  2538.     goto T1722;}
  2539.     if(((V397))!=Cnil){
  2540.     goto T1722;}
  2541.     if(((V398))!=Cnil){
  2542.     goto T1722;}
  2543.     if((symbol_value(VV[55]))!=Cnil){
  2544.     goto T1722;}
  2545.     if((symbol_value(VV[56]))==Cnil){
  2546.     goto T1721;}
  2547. T1722:;
  2548.     princ_str("\n    V",VV[10]);
  2549.     (void)((*(LnkLI80))((V394)));
  2550.     princ_str("=V",VV[10]);
  2551.     (void)((*(LnkLI80))((V394)));
  2552.     princ_str("->c.c_cdr;",VV[10]);
  2553. T1721:;
  2554.     princ_char(125,VV[10]);
  2555.     V405= cdr((V405));
  2556.     goto T1701;}
  2557. T1699:;
  2558.     if(((V397))==Cnil){
  2559.     goto T1742;}
  2560.     V410= list(2,VV[76],(V394));
  2561.     (void)((*(LnkLI117))((V397),/* INLINE-ARGS */V410));
  2562. T1742:;
  2563.     {object V411;
  2564.     register object V412;
  2565.     V411= (V399);
  2566.     V412= car((V411));
  2567. T1749:;
  2568.     if(!(endp((V411)))){
  2569.     goto T1750;}
  2570.     goto T1745;
  2571. T1750:;
  2572.     {object V413;
  2573.     setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
  2574.     V413= symbol_value(VV[54]);
  2575.     princ_str("\n    {object V",VV[10]);
  2576.     (void)((*(LnkLI80))((V413)));
  2577.     princ_str("=getf(V",VV[10]);
  2578.     (void)((*(LnkLI80))((V394)));
  2579.     princ_str(",VV[",VV[10]);
  2580.     V414= (*(LnkLI108))(car((V412)));
  2581.     (void)((*(LnkLI80))(/* INLINE-ARGS */V414));
  2582.     princ_str("],OBJNULL);",VV[10]);
  2583.     princ_str("\n    if(V",VV[10]);
  2584.     (void)((*(LnkLI80))((V413)));
  2585.     princ_str("==OBJNULL){",VV[10]);
  2586.     bds_bind(VV[25],symbol_value(VV[25]));
  2587.     bds_bind(VV[52],symbol_value(VV[52]));
  2588.     bds_bind(VV[26],symbol_value(VV[26]));
  2589.     (void)((*(LnkLI118))(cadr((V412)),caddr((V412))));
  2590.     if((cadddr((V412)))==Cnil){
  2591.     goto T1771;}
  2592.     (void)((*(LnkLI117))(cadddr((V412)),Cnil));
  2593. T1771:;
  2594.     princ_str("\n    } else {",VV[10]);
  2595.     bds_unwind1;
  2596.     bds_unwind1;
  2597.     bds_unwind1;
  2598.     V415= cadr((V412));
  2599.     V416= list(2,VV[76],(V413));
  2600.     (void)((*(LnkLI117))(/* INLINE-ARGS */V415,/* INLINE-ARGS */V416));
  2601.     if((cadddr((V412)))==Cnil){
  2602.     goto T1776;}
  2603.     (void)((*(LnkLI117))(cadddr((V412)),Ct));
  2604. T1776:;
  2605.     princ_str("}}",VV[10]);}
  2606.     V411= cdr((V411));
  2607.     V412= car((V411));
  2608.     goto T1749;}
  2609. T1745:;
  2610.     if((symbol_value(VV[55]))!=Cnil){
  2611.     goto T1787;}
  2612.     if((symbol_value(VV[56]))==Cnil){
  2613.     goto T1785;}
  2614. T1787:;
  2615.     if(((V397))!=Cnil){
  2616.     goto T1785;}
  2617.     if(((V398))!=Cnil){
  2618.     goto T1785;}
  2619.     princ_str("\n    if(!endp(V",VV[10]);
  2620.     (void)((*(LnkLI80))((V394)));
  2621.     princ_str("))invalid_macro_call();",VV[10]);
  2622. T1785:;
  2623.     if((symbol_value(VV[55]))!=Cnil){
  2624.     goto T1799;}
  2625.     if((symbol_value(VV[56]))==Cnil){
  2626.     goto T1797;}
  2627. T1799:;
  2628.     if(((V398))==Cnil){
  2629.     goto T1797;}
  2630.     if(((V400))!=Cnil){
  2631.     goto T1797;}
  2632.     princ_str("\n    check_other_key(V",VV[10]);
  2633.     (void)((*(LnkLI80))((V394)));
  2634.     princ_char(44,VV[10]);
  2635.     V417 = make_fixnum(length((V399)));
  2636.     (void)((*(LnkLI80))(V417));
  2637.     {object V418;
  2638.     object V419;
  2639.     V418= (V399);
  2640.     V419= car((V418));
  2641. T1815:;
  2642.     if(!(endp((V418)))){
  2643.     goto T1816;}
  2644.     goto T1811;
  2645. T1816:;
  2646.     princ_str(",VV[",VV[10]);
  2647.     V420= (*(LnkLI108))(car((V419)));
  2648.     (void)((*(LnkLI80))(/* INLINE-ARGS */V420));
  2649.     princ_char(93,VV[10]);
  2650.     V418= cdr((V418));
  2651.     V419= car((V418));
  2652.     goto T1815;}
  2653. T1811:;
  2654.     princ_str(");",VV[10]);
  2655. T1797:;
  2656.     {object V421;
  2657.     object V422;
  2658.     V421= (V401);
  2659.     V422= car((V421));
  2660. T1833:;
  2661.     if(!(endp((V421)))){
  2662.     goto T1834;}
  2663.     {object V423 = Cnil;
  2664.     VMR23(V423)}
  2665. T1834:;
  2666.     (void)((*(LnkLI118))(car((V422)),cadr((V422))));
  2667.     V421= cdr((V421));
  2668.     V422= car((V421));
  2669.     goto T1833;}}
  2670. }
  2671. /*    local entry for function C2DM-BIND-LOC    */
  2672.  
  2673. static object LI26(V426,V427)
  2674.  
  2675. object V426;object V427;
  2676. {     VMB24 VMS24 VMV24
  2677. TTL:;
  2678.     if(!(type_of((V426))==t_cons)){
  2679.     goto T1845;}
  2680.     {object V428;
  2681.     setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
  2682.     V428= symbol_value(VV[54]);
  2683.     princ_str("\n    {object V",VV[10]);
  2684.     (void)((*(LnkLI80))((V428)));
  2685.     princ_str("= ",VV[10]);
  2686.     (void)((*(LnkLI80))((V427)));
  2687.     princ_char(59,VV[10]);
  2688.     (void)((*(LnkLI115))((V426),(V428)));
  2689.     princ_char(125,VV[10]);
  2690.     {object V429 = Cnil;
  2691.     VMR24(V429)}}
  2692. T1845:;
  2693.     {object V430 = (*(LnkLI105))((V426),(V427));
  2694.     VMR24(V430)}
  2695. }
  2696. /*    local entry for function C2DM-BIND-INIT    */
  2697.  
  2698. static object LI27(V433,V434)
  2699.  
  2700. object V433;object V434;
  2701. {     VMB25 VMS25 VMV25
  2702.     bds_check;
  2703. TTL:;
  2704.     if(!(type_of((V433))==t_cons)){
  2705.     goto T1858;}
  2706.     {object V435;
  2707.     object V436;
  2708.     bds_bind(VV[53],symbol_value(VV[53]));
  2709.     bds_bind(VV[77],small_fixnum(0));
  2710.     setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
  2711.     V435= symbol_value(VV[54]);
  2712.     V437= make_cons((V434),Cnil);
  2713.     V438= (VFUN_NARGS=2,(*(LnkLI119))(/* INLINE-ARGS */V437,VV[78]));
  2714.     V436= car(/* INLINE-ARGS */V438);
  2715.     princ_str("\n    {object V",VV[10]);
  2716.     (void)((*(LnkLI80))((V435)));
  2717.     princ_str("= ",VV[10]);
  2718.     (void)((*(LnkLI80))((V436)));
  2719.     princ_char(59,VV[10]);
  2720.     (void)((*(LnkLI115))((V433),(V435)));
  2721.     princ_char(125,VV[10]);
  2722.     {object V439 = (*(LnkLI120))();
  2723.     bds_unwind1;
  2724.     bds_unwind1;
  2725.     VMR25(V439)}}
  2726. T1858:;
  2727.     {object V440 = (*(LnkLI106))((V433),(V434));
  2728.     VMR25(V440)}
  2729. }
  2730. /*    local function DO-DECL    */
  2731.  
  2732. static L16(base0)
  2733. register object *base0;
  2734. {    register object *base=vs_base;
  2735.     register object *sup=base+VM26; VC26
  2736.     vs_reserve(VM26);
  2737.     {object V441;
  2738.     check_arg(1);
  2739.     V441=(base[0]);
  2740.     vs_top=sup;
  2741. TTL:;
  2742.     {object V442;
  2743.     V442= (*(LnkLI121))((V441));
  2744.     if(((V442))==Cnil){
  2745.     goto T1874;}
  2746.     {object V443;
  2747.     setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
  2748.     V443= symbol_value(VV[54]);
  2749.     (void)(structure_set((V441),VV[6],1,(V442)));
  2750.     (void)(structure_set((V441),VV[6],4,(V443)));
  2751.     princ_str("\n    ",VV[10]);
  2752.     if((base0[9])!=Cnil){
  2753.     goto T1881;}
  2754.     princ_char(123,VV[10]);
  2755.     base0[9]= Ct;
  2756. T1881:;
  2757.     base[1]= (V441);
  2758.     vs_top=(vs_base=base+1)+1;
  2759.     (void) (*Lnk122)();
  2760.     return;}
  2761. T1874:;
  2762.     base[1]= Cnil;
  2763.     vs_top=(vs_base=base+1)+1;
  2764.     return;}
  2765.     }
  2766. }
  2767. /*    local function DO-DECL    */
  2768.  
  2769. static L14(base0)
  2770. register object *base0;
  2771. {    register object *base=vs_base;
  2772.     register object *sup=base+VM27; VC27
  2773.     vs_reserve(VM27);
  2774.     {object V444;
  2775.     check_arg(1);
  2776.     V444=(base[0]);
  2777.     vs_top=sup;
  2778. TTL:;
  2779.     {object V445;
  2780.     V445= (*(LnkLI121))((V444));
  2781.     if(((V445))==Cnil){
  2782.     goto T1890;}
  2783.     {object V446;
  2784.     setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
  2785.     V446= symbol_value(VV[54]);
  2786.     (void)(structure_set((V444),VV[6],1,(V445)));
  2787.     (void)(structure_set((V444),VV[6],4,(V446)));
  2788.     princ_str("\n    ",VV[10]);
  2789.     if((base0[7])!=Cnil){
  2790.     goto T1897;}
  2791.     princ_char(123,VV[10]);
  2792.     base0[7]= Ct;
  2793. T1897:;
  2794.     base[1]= (V444);
  2795.     vs_top=(vs_base=base+1)+1;
  2796.     (void) (*Lnk122)();
  2797.     return;}
  2798. T1890:;
  2799.     base[1]= Cnil;
  2800.     vs_top=(vs_base=base+1)+1;
  2801.     return;}
  2802.     }
  2803. }
  2804. static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* WT-VAR-DECL */
  2805. static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,1,ap);} /* C2VAR-KIND */
  2806. static object  LnkTLI120(){return call_proc0(VV[120],&LnkLI120);} /* CLOSE-INLINE-BLOCKS */
  2807. static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],&LnkLI119,ap);} /* INLINE-ARGS */
  2808. static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],&LnkLI118,2,ap);} /* C2DM-BIND-INIT */
  2809. static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,2,ap);} /* C2DM-BIND-LOC */
  2810. static object  LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,1,ap);} /* C2DM-RESERVE-V */
  2811. static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,2,ap);} /* C2DM-BIND-VL */
  2812. static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* C2DM-RESERVE-VL */
  2813. static object  LnkTLI113(){return call_proc0(VV[113],&LnkLI113);} /* C1NIL */
  2814. static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* C1DM-V */
  2815. static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* DM-BAD-KEY */
  2816. static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* C1DM-VL */
  2817. static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* WT-VS */
  2818. static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* ADD-SYMBOL */
  2819. static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* C2EXPR */
  2820. static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* C2BIND-INIT */
  2821. static object  LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,2,ap);} /* C2BIND-LOC */
  2822. static object  LnkTLI104(){return call_proc0(VV[104],&LnkLI104);} /* RESET-TOP */
  2823. static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,1,ap);} /* C2BIND */
  2824. static object  LnkTLI102(){return call_proc0(VV[102],&LnkLI102);} /* VS-PUSH */
  2825. static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,2,ap);} /* C2LAMBDA-EXPR-WITHOUT-KEY */
  2826. static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* C2LAMBDA-EXPR-WITH-KEY */
  2827. static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,1,ap);} /* RECORD-ARG-INFO */
  2828. static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,3,ap);} /* FIX-DOWN-ARGS */
  2829. static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,1,ap);} /* CHECK-VREF */
  2830. static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,2,ap);} /* C1DECL-BODY */
  2831. static object  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,3,ap);} /* CHECK-VDECL */
  2832. static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,2,ap);} /* ADD-INFO */
  2833. static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* MAKE-VAR */
  2834. static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,3,ap);} /* AND-FORM-TYPE */
  2835. static object  LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],&LnkLI91,2,ap);} /* C1EXPR* */
  2836. static object  LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],&LnkLI90,1,ap);} /* DEFAULT-INIT */
  2837. static object  LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[89],&LnkLI89,4,ap);} /* C1MAKE-VAR */
  2838. static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,1,ap);} /* C1ADD-GLOBALS */
  2839. static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* C1BODY */
  2840. static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[86],&LnkLI86,ap);} /* CMPERR */
  2841. static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[85],&LnkLI85,ap);} /* MAKE-INFO */
  2842. static object  LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[84],&LnkLI84,ap);} /* UNWIND-EXIT */
  2843. static object  LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[83],&LnkLI83,ap);} /* MAKE-FUN */
  2844. static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* DELETE */
  2845. static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* WT-H1 */
  2846. static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* WT1 */
  2847. static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,1,ap);} /* C1EXPR */
  2848.